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ABSTRACT 



Due to peacetime training limitations, the integration 
of tactics and logistics as it relates to the command and 
control of a field artillery battalion cannot be easily 
practiced. This thesis presents a computer assisted wargame 
which will give battalion staff officers some experience in 
dealing with this shortcoming. The wargame emphasizes the 
decision maker in the command and control system. 
Specifically, this wargame forces the decision maker to 
consider numerous tactics / logistics interface issues and 
then make a series of command and control type decisions. 
At the end of each game, the player's performance is 
evaluated in terms of howitzer availability time, casualty 
rates, vulnerability rates, and ammunition optimization. 
The wargame itself is highly flexible and is capable of 
being played in support of a full scale battalion command 
post exercise or during weekly officer professional 
development time. 
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I. DESCRIPTION OF THE PROBLEM 
A. INTRODUCTION 

In the United States Army, combat-arms-type units have a 
very difficult time finding ways to conduct fully realistic 
training. In a peacetime environment there are many factors 
which inhibit realistic training. Budgetary constraints 
limit the scope and duration of training as well as minimize 
the amount of ammunition expended. Safety considerations 
limit intensity and realism in training. And, the lack of 
adequate training areas compresses the size of the "training 
battlefield" so that training does not take place over 
realistic distances. The implication to those concerned 
with the command and control of combat units is that there 
is very little "hands on" experience available in the 
integration of tactics and logistics as it relates to the 
command and control of these units. This lack of hands on 
experience by our officers is a potential deficiency which 
deserves some attention. 

In order to address this deficiency, there are many 
options available. These options range from training 
through "field training exercises" (FTX) down to classroom 
instruction. An FTX would theoretically provide the best 
situation for training the tactics / logistics interface. 
However, FTXs rarely provide more than a start point for 
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understanding the tactics / logistics interface issues. 
This is true due to budget constraints, safety 
considerations, training area limitations, and low peace 
time ammunition consumption rates. In short, we are never 
faced with the problems of moving enough ammunition to keep 
up with tactics or slowing tactics to keep pace with 
ammunition resupply rates because we rarely fire ammunition 
on combined arms exercises (at least not at a realistic 
rate) . 

Classroom instruction can serve as an introduction to 
the issues related to the integration of tactics and 
logistics but it lacks the critical element of hands-on 
experience. An individual must confront and solve these 
type of problems for himself in order to be effective at the 
beginning of the next war. 

The next best thing to an FTX is a command post exercise 
(CPX) . In the CPX, all but the command and control elements 
are played notionally. Normally, some type of wargame is 
played at a remote location and then the various command 
posts must perform their wartime functions in accordance 
with the wargame scenario. In most cases, when CPX's are 
run by higher level headquarters, the resolution is such 
that very little training on the integration of tactics and 
logistics takes place at the battalion level. In fact, the 
nature of the tactics / logistics problem is such that it is 
very difficult for a wargame to provide an environment which 
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trains officers in the integration of these functions. Most 
wargames either emphasize tactics or logistics but not both. 
This is due to the fact that it requires much more detail 
than can be generated under normal conditions in a manually 
run wargame. 

B. WHAT IS MEANT BY THE INTEGRATION OF TACTICS AND 
LOGISTICS? 

According to Army Field Manual 100-5... 

Commanders must plan tactics and logistics concurrently 
to insure that the tactical scheme of maneuver and fire 
support are logistically supportable. They consider the 
constraints that Combat Service Support planners 
identify. They modify unsupportable plans or accept the 
risks involved. [ref. 1: p. 5-1] 

This refers primarily to the integration of tactics and 

logistics in the planning of operations. However, the 

integration process does not stop there. During the conduct 

of operations, the integration of tactics and logistics is a 

continuous process which is driven by factors such as 

expenditure rates, casualty rates, supply availability, 

supply transportation capacity, and the tactical situation. 

All of these factors must be carefully managed in order to 

conduct a cohesive operation. Failure to integrate tactics 

and logistics can result in failure to accomplish the unit's 

overall mission. 

C. SCOPE OF THE THESIS 

This thesis describes the use of a battalion level, 
computer assisted wargame, played by the battalion 
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operations and logistics staff sections, to train officers 
in the integration of tactics and logistics as it applies to 
the command and control of a field artillery battalion. 
Limiting the discussion to the command and control of a 
field artillery battalion was done only to provide a 
manageable start point for exploring the larger issue of 
training officers in the integration of tactics and 
logistics. The field artillery battalion is a logical 
choice as a start point because of the field artillery's 
dependence on extremely large quantities of bulk ammunition. 
In wartime, this dependence will dictate the movement of 
firing batteries and the rate at which firing batteries can 
shoot. Ammunition trucks will become a scarce resource that 
needs to be carefully managed to ensure optimum ammunition 
resupply as well as survivability. Therefore, in addition 
to consideration of howitzer vulnerability thresholds, the 
tactical situation, movement plans, fire plans, and casualty 
projections, the commander and his staff will also have to 
consider unit distribution plans or point distribution 
plans, potential limitations on firing rates, ammunition 
truck movement plans, and truck vulnerability thresholds. 

This thesis presents a wargame that attempts to capture 
these concepts in a form which will provide a learning 
environment for those tasked with the command and control of 
a field artillery battalion. The wargame is only computer 
assisted. It is important to note that the "essential 
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ingredients of any command and control system... are the 
commanders or decision makers themselves." [ref. 2: p. 618] 
The computer portion of the wargame will only provide 
relevant information to the decision maker, execute his 
decisions, and keep track of the game's statistics. At the 
end of the game, a measure of effectiveness (MOE) will be 
computed which will provide an assessment of the player's 
performance. The MOE is based on a computation of the 
howitzer availability time, the amount of time spent at a 
critical vulnerability level, the amount of time lost due to 
casualties, and the amount of time spent short of sufficient 
amounts of ammunition. This will force the decision maker 
to plan ahead and to consider all of the relevant concepts 
in order to maximize howitzer availability time, minimize 
vulnerability, minimize casualties, and optimize ammunition 
resupply. The intent of the wargame is to provide an 
environment in which officers can learn to consider the 
factors which are critical to the integration of tactics and 
logistics . 

In order to build such a wargame, an analysis of the 
architecture of field artillery battalion is required. This 
analysis is the topic of Chapter II. Using this analysis, 
the approach taken to design a wargame which trains officers 
in the integration of tactics and logistics as it relates to 
the command and control of a field artillery battalion is 
discussed in Chapter III. Chapter IV describes the 
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processes used by the computer to derive some of the more 
important aspects of the wargame. A user's manual for the 
wargame is provided in Chapter V. Finally, Chapter VI 
discusses suggested enhancements and potential uses of the 
wargame . 
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II. THE FIELD ARTILLERY BATTALION SYSTEM / ARCHITECTURE 
A. INTRODUCTION 

Before building a wargame that simulates the operations 
of a field artillery battalion, it is critically important 
to analyze the battalion in order to determine how it works. 
More specifically, it is important to know not only the 
internal interactions which take place within the battalion, 
but also the interactions the battalion has with external 
elements. It is important to understand the battalion's 
environment and its mission. More importantly, it is 
important to understand how the environment affects the 
battalion's ability to achieve its goals and if there are 
any other constraints which may hinder the achievement of 
these goals. 

One proven method of analysis is through the use of the 
"Systems Approach." A system, as defined by Professor James 
G. Taylor of the Naval Postgraduate School, is a "collection 
of elements which combine together to form a whole in order 
to accomplish a goal." [ref. 3] The systems approach 
provides a method of developing the system by considering 
the system's goals, the environment, the mission, the 
resources, and the management [ref. 4: p. 44]. 

To supplement the systems approach, the system 
architecture provides a depiction of the "interconnections 
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between elements of the system. Interconnections can be 
based on time, functional, informational or spatial 
relationships.” [ref. 4; p. 126] 

Through the use of both the systems approach and the 
systems architecture, the field artillery battalion can be 
thoroughly analyzed. A conscious effort has been made to 
separate the analysis using the systems approach and the 
systems architecture. It was felt that it would be better 
to first conduct a written analysis of the battalion using 
the systems approach and then fill in between the lines by 
letting each graphical portrayal of the system architecture 
say "a thousand words". This analysis will be helpful in 
determining which aspects of the battalion will be germane 
to the design of the wargame and which system 
characteristics can be ignored. 

B. FIELD ARTILLERY MISSION 

The mission of the field artillery is to "destroy, 
neutralize, or suppress the enemy by indirect fires and to 
integrate all fire support into combat operations. 
Successful execution of this mission demands effective 
integration of field artillery fires into the scheme of 
maneuver and swift, exact, execution from, the time a target 
is acquired until ordnance is delivered on target." [ref. 5: 
p. 1-1] Field Manual 6-20-1, FIELD ARTILLERY CANNON 
BATTALION OPERATIONS, goes on to say that in order for the 
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battalion to support maneuver forces on the battlefield 
successfully, it must survive to perform the following 10 
basic tasks: 



1. Target Acquisition — Detecting and engaging targets 
that threaten maneuver elements of the supported 
brigade. 

2 . Meteorology. Survey, Technical Fire Direction — The 
battalion operations officer (S3) insures that fire 
direction centers (FDC) have the information they need 
to conduct effective fire direction. 

3. Fire Planning — Field artillery fires are planned to 
achieve one of three effects on the target: 
suppression, neutralization or destruction. The desired 
effect will be determined by the supported unit 
commander, the fire support coordinator (FSCOORD) , or 
the fire direction officer. 

4. Tactical Fire Control — Tactical fire direction in- 
cludes selection of rounds, shell/fuze combinations, and 
designation of units to fire. 

5. Plans and Orders — Command and control of the field 
artillery cannon battalion is established through the 
assignment of tactical missions. 

6. Positioning — The planning for the selection of any 
position must include consideration of communication 
requirements and combat service support in addition to 
the mission, terrain, and tactical situation. 

7. Reconnaissance — Reconnaissance is performed to se- 
lect the best battalion and battery positions, march 
routes, start and release points, command posts, 
observation posts, and communication sites, and to 
analyze the terrain where the battle will be fought. 
Prior to or concurrent with reconnaissance, the field 
artillery commander/S3 should coordinate with the 
maneuver commander/S3 to determine what areas maneuver 
units plan to occupy. Mutual agreement must be 
established to make the best use of the available 
terrain . 

8. Displacement - -Field artillery battalions must fre- 
quently displace to provide continuous fire support to 
maneuver units. There are three general ways that a 
field artillery battalion moves; by unit displacement. 
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by echelon, and by battery. In unit displacement, the 
entire battalion moves at once and no units are 
available to provide fire support. In displacement by 
echelon, some portion of the battalion moves and sets up 
in the next position and then the other portion of the 
battalion moves. In displacement by battery, one 
battery at a time displaces. This method provides the 
maximum amount of fire support at any given time but it 
is sometimes too slow to keep up with maneuver. 

9. Communications — The cannon battalion commander must 
rely on communications to control elements of his 
command, gather information, distribute intelligence, 
and coordinate fire support. The primary means of 
communications in the cannon battalion are radio and 
wire. 

10. Combat Service Support (CSS ) — CSS is the process of 
keeping the maximum number of weapon systems 
operational. The support functions and operations in 
the battalion by the personnel officer (SI) , logistics 
officer (S4), or any other supervisor must be closely 
coordinated with tactical operations. A continuous 
exchange of information among CSS coordinators, the S3, 
and battery commanders is essential to the success of 
both tactical and logistical plans. [ref. 5] 

The mission of the field artillery and its implied tasks 
are critical to understanding how the field artillery 
battalion works and how to build a wargame which simulates 
the battalion. The mission can be broken into two parts. 
The first is the requirement to be capable of delivering 
timely, accurate, and effective fires and the second is to 
provide those fires in a manner which supports the overall 
scheme of maneuver. The ten basic tasks are the implied 
tasks which any field artillery unit must be able to perform 
in order to accomplish the field artillery mission. These 
tasks are important because they represent functions that 
the wargame will have to be able to perform to varying 
degrees depending on the mission and goals of the wargame. 
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The field artillery mission clearly implies that the 
field artillery battalion is a part of a larger system 
which, among other things, dictates the scheme of maneuver 
which roust be supported. The mission also implies that in 
order to provide swift, exact indirect fires, much 
coordination and interaction with external elements must 
take place in order to ensure that the artillery can range 
the enemy, has enough ammunition on hand to support the 
operations, and has coordinated positions to which it can 
displace. Finally, the mission implies that the unit must 
be able to survive to perform all of these tasks. 

C. GOALS 

The mission and its implied tasks can be boiled down to 
several goals. These goals are necessary because they help 
to quantify the degree to which the unit is effective in the 
accomplishment of its mission. They also help to further 
describe the system and the positive and negative 
motivations which are inherent in the system. In this 
respect, an analysis of the goals will be very useful to the 
design of the wargame and particularly to the design of any 
MOEs which may be necessary. 

The goals were chosen to address the mission and its 
implied tasks. They are stated in quantifiable terms. 
These goals are closely related and some could actually be 
considered as sub-goals to other goals. However, they have 
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been separated into different goals based upon the fact 
that there are specific command and control actions which 
can be taken to optimize each goal. In many cases these 
actions serve to oppose other goals and so a set of 
tradeoffs must be considered. The four goals are described 
below. 

1. Maximize Availability Time 

First and foremost, the battalion must be able to 
support the maneuver units. This means that the battalion 
must have the maximum number of cannons in a firing status 
for the maximum amount of time. It also means that the 
firing units must always have ammunition to fire and that 
they should minimize the number of tubes lost to maintenance 
or enemy fire. 

In operational terms, it means that firing units 
must displace as little as possible without letting the 
enemy get out of range and without letting themselves get 
too vulnerable to enemy detection. This goal can be 
measured in tube hours, i.e., the sum of the total number of 
hours each tube is capable of providing fire support. 

2. Minimize Vulnerability 

A firing unit becomes more vulnerable to enemy 
detection in two ways. First, the longer a unit is in 
position, the more likely it is that it has been located by 
aerial reconnaissance. Second, the more rounds a firing 
battery fires out of a position, the more likely that unit 
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has been located by enemy counter-battery radar. These 
probabilities of detection can be determined from 
probability of detection versus time and versus "rounds 
fired" curves, respectively. These probabilities can be 
combined to derive a vulnerability factor. 

In operational terms, a commander must be willing to 
accept some degree of vulnerability. Some positions are 
more vulnerable than others due to the amount of cover and 
concealment available. A vulnerability threshold can be 
specified by a commander in terms of rounds fired out of a 
position when time in the position is less than some 
specified maximum allowable time in that position. A unit 
should move when it reaches the commander's vulnerability 
threshold so that its vulnerability level is reset at zero. 
Many times, due to the tactical situation or due to a lack 
of prior planning, the commander can not move a unit when it 
reaches the commander's vulnerability threshold. It is the 
time spent above the vulnerability threshold that the 
commander wants to minimize. This goal can be measured in 
the number of tube hours spent above the vulnerability 
threshold . 

3. Minimize Casualties 

Casualties can be incurred both in positions and 
during displacement. In operational terms, a commander can 
minimize casualties by moving often thereby minimizing 
vulnerability. Or, he may take the safest but not 
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necessarily the shortest routes on displacements. This goal 
to conserve assets for both current and future operations 
must be balanced against the goal to maximize availability 
time. This goal can be measured in terms of the tube / 
truck / equipment / personnel time lost during the operation 
due to casualties. 

4 . Optimize Logistics Operations 

Logistics operations also experience vulnerability 
and casualties and therefore goals two and three apply to 
logistics units. More importantly, logistics units are 
critical to the attainment of the first goal. Fire units 
which are low on ammunition or fuel can not adequately 
support maneuver forces and fire units which are out of 
those supplies are not available to support maneuver units. 

In operational terms, there are many different forms 
of resupply operations. The battalion trains can deliver 
supplies to the unit (unit distribution) or it can deliver 
the supplies to a point where the fire units will have to go 
to pick up their supplies (point distribution) . The trains 
can bundle their trucks into convoys to pick up and deliver 
supplies or they can use the "trickle" method to pick up and 
deliver supplies by sending as few as one truck at a time as 
the trucks become available. The method used depends on the 
tactical situation, the enemy situation, the terrain and the 
level of training of the units. 
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Optimization refers to making the most efficient use 
of the supplies and the resupply assets in order to ensure 
accomplishment of the field artillery mission. This goal 
can be measured in terms of the amount of time firing units 
spend critically short, or out of, critical supplies. 

This analysis of the field artillery battalion's 
goals and especially the statements of the goals in 
operational terms tells us a lot about the internal 
operation of the battalion and about what motivates 
operational decisions. These motivating factors must also 
be present in the wargame in order to have any true training 
value . 

D. ENVIRONMENT 

The field artillery battalion exists in an environment 
consisting of both friendly and hostile elements. The 
friendly environment can also be divided. It consists of 
command relationships and support relationships. 

Command relationships refer to the fact that the field 
artillery battalion is commanded by the division artillery 
which is commanded by the division and the fact that the 
maneuver battalions are commanded by the maneuver brigade 
which is in turn commanded by the division and finally that 
the support battalions are commanded by the division support 
command which is also commanded by the division. In short, 
there is no command relationship between the field artillery 
battalion and the maneuver units or the support units. 
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Support relationships refer to the relationship that 
does exist between the field artillery battalion and the 
maneuver units and the support units. The direct support 
field artillery battalion has a mission to provide close 
support to a maneuver brigade. With this mission, according 
to Field Manual 6-20-1, comes the requirement to provide 
first priority on calls for fire to the brigade and to 
provide fire support coordinating personnel to the brigade. 
The division artillery assigns missions to the field 
artillery battalion. By the same token, the division 
support command assigns missions to its subordinate units to 
provide service support to various divisional units. In 
this manner, the field artillery battalion will have a 
support unit assigned to provide supplies to support its 
mission. 

The hostile side of the environment refers to the fact 
that the enemy exists to prevent accomplishment of the 
battalion's mission. It does this by producing casualties, 
by interdicting critical supplies, disrupting the plan, and 
disrupting command, control and communications. There are 
many forms of hostile acts performed by the enemy. Any 
wargame must consider this aspect of the environment. 

Another aspect of the environment is the fact that all 
the elements of the system and the elements of the external 
environment exist on the battlefield. They are separated by 
considerable distances and must move frequently in order to 
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stay in the battle. They are positioned so as to best 
facilitate accomplishment of their mission and to assure 
survivability. They are positioned on terrain which 
provides some degree of cover and concealment and which may 
or may not facilitate communications with other elements of 
the system and environment. 

Finally, a discussion of the environment would not be 
complete without considering what Clausewitz called 
"FRICTION." [ref. 6] This refers to the fact that 
operations never occur as planned. There are many reasons 
for plans going wrong which are beyond the control of the 
commander. All of them are lumped together and called 
friction. This requires commanders to be flexible. They 
must be able to modify plans quickly and issue effective 
fragmentary orders. 

An understanding of the environment is necessary for a 
full understanding of the field artillery battalion system. 
It is also necessary to include the critical aspects of the 
environment in the wargame. 

E. RESOURCES 

The battalion's resources primarily include its people, 
its equipment, and its supplies. Its people include its 
leaders and its soldiers. They are trained and work 
together as a part of a team. They operate the equipment 
which helps to accomplish the mission. People are the 
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battalion's most important resource. It takes people to 
operate the equipment and to use the supplies. It takes 
trained people who can work together as a cohesive unit to 
accomplish the battalion's mission. 

The field artillery battalion's most critical equipment 
includes its weapon systems, fire direction systems, and 
supply trucks. All are critical to accomplishment of its 
mission . 

The field artillery battalion's most critical supplies 
are food, fuel, and ammunition. All are critical to 
accomplishment of its mission. Units establish required 
supply rates (RSR) which tell higher level units how much 
ammunition is required to accomplish the mission. The 
higher level unit then establishes the controlled supply 
rate (CSR) which is based upon how much ammunition is 
available. If the CSR is less than the RSR, then the unit 
must curtail operations to avoid exceeding the CSR. 

Resources can be easily represented by computer 
simulation. However, the manipulation and expenditure and 
conservation of resources to accomplish the mission, which 
is the subject of the next paragraph, is best left to the 
human interaction portion of the wargame. 



F. MANAGEMENT 

In the military, the commander is responsible for all 
that his unit does or fails to do. However, he has a staff 
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to assist him in the two primary management functions of 
planning and controlling the battalion. The commander 
alone, however, must provide leadership for the battalion. 
His leadership serves to inspire and motivate his soldiers 
and it provides direction for his subordinate units and his 
staff. In addition to providing direction, the commander 
must approve all plans and issue all orders in his name. 
These aspects of command are very difficult to simulate 
using computers and are best represented in wargames by the 
human players themselves. 

Staffs conduct planning under the commander's guidance. 
The S3 is responsible for incorporating all of the staff 
estimates and determining the recommended course of action. 
The commander then either approves or selects his own course 
of action. The staff then prepares the plans to execute 
that course of action. The plan becomes an order when 
issued to subordinates with an execution time. Planning is 
a complex process which requires much training. It is 
therefore suitable for the human element in a wargame. 

Controlling refers to the process of monitoring 
operations to ensure that they are being carried out within 
the commander's intent. It also refers to monitoring the 
overall tactical situation to determine if the plan is still 
appropriate. If it is not appropriate, it involves 
modifying the plan and issuing fragmentary orders. 
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Controlling is a continuous process which requires the 
commander and his staff to monitor the battalion's 
environment and resources and to make the tradeoffs implied 
in the battalion's goals, all in order to accomplish the 
battalion's mission. This complex process is especially 
appropriate for the hiaman interaction portion of the 
wargame. 

G. ARCHITECTURAL LINK DEPICTIONS 

The discussion of the field artillery battalion thus far 
using the systems approach has been very useful in 
understanding the battalion so that an effective wargame can 
be designed. Graphical portrayal of the discussion in the 
form of the battalion's system architecture will now be 
useful in clarifying and adding to that discussion. 

Systems architectures can be depicted in several 
different ways depending on the perspective desired. For 
the purposes of this thesis, functional, spatial, 
informational, and time depictions will be used. A 
description of each can be found in this section. 

1. Functional 

•'Functional architecture describes the technical 
structure of large systems.'* [ref. 7: p. 2.4] Figure 2.1 is 
a functional depiction of the divisional supersystem. 
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DIVISION 




Figure 2.1 Divisional Super- System 
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Everything outside of the field artillery battalion itself 
is a part of the battalion's environment. Boxes within 
other boxes indicate command relationships. Arrows indicate 
support relationships. 

Figure 2.2 is a functional depiction of the field 
artillery battalion. Again, boxes within other boxes 
indicate command relationships. However, in this case the 
primary function of each element is listed next to its box. 

2. Spatial 

Spatial architecture depicts the physical 
relationship of the elements in the system. Figure 2.3 is a 
spatial depiction of the field artillery battalion system. 
Since a direct support field artillery battalion nonnally 
supports a maneuver brigade, the brigade's battlefield 
geometry is depicted. The firing batteries must be able to 
project approximately two-thirds of their range into enemy 
territory. Therefore, the howitzers are found four to eight 
kilometers behind the front line of troops (FLOT) . 
Normally, all three batteries support the entire brigade 
rather than one battery per maneuver battalion. Therefore, 
batteries are positioned where they can best support the 
entire brigade in accordance with the battalion's battery 
displacement plan. 

The battalion tactical operations center (TOC) must 
be positioned farther back for survivability. But it must 
be in close proximity to the supported brigade headquarters 
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and it must be able to communicate with the firing batteries 
and the brigade TOC. 

The battalion trains are located even farther to the 
rear for survivability and for ease of coordination with 
support units. The dotted lines which emanate from the 
trains indicate that resupply convoys are constantly on the 
road. 

The spatial architecture is important because it 
puts the physical relationships of the elements in 
perspective. An appreciation of the distances involved is 
necessary to the wargame to simulate the times required for 
events to transpire. 

It is also important to note that Figure 2.3 is only 
a snapshot of the system at a particular instant in time. 
Elements of the system must continuously move in order to 
perform their missions and enhance survivability. 

3. Information 

Information architecture is especially important to 
the design of the wargame because it depicts the information 
flow both within the system and to external elements. 
Figure 2.4 depicts this flow for the battalion and its 
environment. Only the most critical elements of information 
have been depicted. 

Implied in Figure 2.4 is the fact that if 
information flows between two elements, then a 
communications system must exist between them. This figure 
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Figure 2.4 Field Artillery Battalion Information Architecture 
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does not show the communications nets. It only relates that 
communications exists between the elements. The habitual 
flow of information between elements leads to the use of 
various message formats for different types of information 
and it leads to standard operating procedures which dictate 
when and how the messages will be sent. 

Also depicted on Figure 2.4 with a dotted line is 
the system boundary. Everything within the dotted line is 
in the field artillery battalion system. Everything outside 
the dotted line is external to the system. The lines of 
communications that cross the boundaries are then external 
communications and the lines of communications within the 
boundaries are internal communications. 

The information architecture is extremely important 
to the analysis as it relates to the design of the wargame. 
The primary problem will be which information is needed in 
the wargame and which information is not necessary to 
accomplish the goals of the wargame. Dividing the 
communications into internal and external communications 
also will be helpful in arriving at a solution to the 
problem. 

4 . Architectural 

Architectural depictions based on time relationships 
help to place events in their natural order. In a complex 
system such as the field artillery battalion, this can be 
very difficult to do. Schedules of events are not 
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appropriate because events do not usually happen at a 
specific time. It is even difficult to attempt to put 
events into a chronological order without assigning specific 
times. The best that can be done is to use the concepts of 
time based depictions of architecture to analyze the combat 
process . 

Figure 2.5 is the Conceptual Combat Operations 
Process Model [ref. 8: p. 27]. By avoiding specific events 
and analyzing the generic process instead, an understanding 
of the logical order of the component parts of any operation 
can be gained. It is important to note that as a generic 
model, it applies to tactical operations, logistical 
operations, and applies equally well to both current 
operations and future operations plans. 

Figure 2.5 implies that combat operations consist of 
a cyclic process which is stimulated by the environment and 
leads to an attempt to understand the environment. This is 
followed by the formulation of alternative courses of 
action, guidance from higher headquarters, and ultimately a 
decision to take some action which relates to the perception 
of the environment. This decision is then sent to 
subordinate elements and is executed. This in turn has some 
impact on the environment and changes the stimulus which 
caused the action in the first place and the process repeats 
itself . 
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CONCEPTUAL COMBAT OPERATIONS 
PROCESS MODEL 




Figure 2.5 Conceptual Combat Operations Process Model 



This model gives structure to the wargame by 
providing a logical order to the functions which must be 
performed both by the computer program and the human 
interaction portions of the game. 

H. SUMMARY 

In order to build a wargame that trains officers in the 
integration of tactics and logistics, an analysis of the 
field artillery battalion is necessary. Use of the systems 
approach provides a structure for this analysis so that all 
of the important aspects of the battalion can be considered. 
The understanding of the field artillery battalion which was 
gained through this analysis is critical to the design of 
the wargame. The next chapter will discuss the approach 
taken in the design of this wargame. 
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III. THE CONCEPTUAL APPROACH 



A. INTRODUCTION 

This section is not intended to provide detailed, 
technical design criteria for the wargame. Rather, it is 
intended to provide the approach taken to resolve many of 
the issues which arose while conceptualizing this wargame. 

It is important to differentiate between the field 
artillery battalion system and the wargame. The wargame can 
be considered a system unto itself. Therefore, the best way 
to look at the conceptual approach is by using a system view 
of the wargame. In many cases, the best approach to take 
for certain system aspects of the wargame is to simply 
simulate the same system aspects from the field artillery 
battalion. In other cases, there are some important 
differences. Therefore, specific references will be made to 
the wargame system and to the battalion system in order to 
avoid confusion. 

As with the battalion, a discussion of the mission, 
goals, environment, resources, and management follows. 
These aspects, along with a discussion of some of the 
architectural depictions, will provide the vehicle for a 
complete discussion of the approach taken for the design of 
this wargame. 
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B. MISSION OF THE WAR6AME 



The mission of this wargame is to train officers in the 
integration of tactics and logistics as related to the 
command and control of a field artillery battalion. There 
are several implied tasks which are necessary for the 
wargame to accomplish this mission. The wargame must be 
oriented toward the command and control elements of the 
battalion. Therefore, the players will consist of an 
operations and intelligence (O&I) staff section, a logistics 
(S4) staff section, and a battalion commander. It must 
require the players to weigh all of the tradeoffs involved 
in integration of tactics and logistics. Special emphasis 
must be given to those areas which are not normally 
experienced in a peacetime training environment. Since the 
mission is to train officers, the wargame must provide 
feedback to the officers so that good decisions are 
reinforced and poor decisions are penalized. This can be 
done through the use of a measure of effectiveness which 
evaluates the player's performance. Finally, the wargame 
must be able to provide a realistic representation of the 
field artillery battalion system. This means that the field 
artillery mission should be central to the wargame's design. 
Each of the artillery's ten implied tasks must be performed 
by the wargame to varying degrees. 
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1. Target Acquisition 

This function will not be explicitly played in the 
first iteration of the wargame. Targets will be provided to 
the battalion TOC. All other firing will be done at some 
predetermined rate depending on the tactical situation. 

2. Meteorology, Survey, Technical Fire Control 

These functions also will not be explicitly played 
as a part of this wargame. This is due to the fact that 
these functions are not germane to the wargame 's mission of 
training officers in the integration of tactics and 
logistics. These functions relate to the computation of 
actual firing data. 

3. Fire Planning 

This function must be performed as a part of the 
wargame at a tactical level since it occupies a significant 
portion of the operations and intelligence section's time. 
More importantly, it must be done with the logistics 
situation in mind. It requires an analysis of the CSR in 
order to avoid firing too many rounds. 

4 . Tactical Fire Control 

Some battalion level fire missions will be useful 
for causing the O&I section to determine the number of 
rounds to fire on a given target and the number of fire 
units. However, the level of resolution need not include 
the various shells and fuzes in the wargame's first version. 
Once again, this will cause the O&I section to weigh the 
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desire for effects on target against the logistics 
situation . 

5. Plans and Orders 

These functions represent the essence of the command 
and control / battle management portion of the wargame. 
They will be performed by the players as they would actually 
perform them in a real wartime environment. The game will 
begin with a hard copy of the supported maneuver unit's 
operations order. The O&I section and the logistics section 
will then begin planning, develop an order, and then, using 
the computer, send the order to the units to execute. The 
computer program portion of the wargame is responsible for 
the execution of all orders. 

6. Positioning 

This function is also extremely important to the 
design of the wargame. All positions must be coordinated 
with the maneuver unit that owns the land. Positions must 
also be coordinated with the resupply plan. 

7. Reconnaissance 

Reconnaissance must be performed within the wargame 
so that realistic plans can be made. At the very least, map 
reconnaissance can be performed. Ultimately, a computer run 
network using Dykstra algorithms can be used to simulate 
route reconnaissance to determine the shortest or quickest 
routes . 
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8. Displacement 

This function is central to the integration of 
tactics and logistics. Displacement routes must be well 
planned and coordinated with the resupply plan. The 
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umbrellas may be longer but they reduce casualties. 
Displacements must be timed so as to avoid falling too far 
behind maneuver forces or to avoid getting overrun by the 
enemy. Additionally, displacements should be timed to 
minimize the amount of time a unit spends above the 
commander's vulnerability threshold. All of these tradeoffs 
should exist within the wargame as well as the actual 
movement of the units along the paths and nodes of the 
previously mentioned network. 

9. Communications 

Some sense of communicating orders and receiving 
reports must be contained within the game. The computer 
assisted portion of the game will provide this service. The 
players will be able to establish certain standard operating 
procedures (SOP) to control such things as the frequency of 
standard reports like the unit situation reports. 

10. Combat Service Support (CSS) 

This function is obviously critical to 
accomplishment of the wargame 's mission. In order to give 
proper emphasis to the importance of this function, each of 
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the ainmunition resupply trucks will be explicitly played. 
Of the various types of supplies, only ammunition will be 
played in the first iteration of the wargame. This is 
because the other types of supplies are normally played 
through actual consumption even in peacetime exercises. It 
is ammunition which has the most bulk and the largest impact 
on tactics. 

This analysis of the wargame's mission, along with 
its implied tasks, provides a discussion of the wargame's 
intended purpose, its scope, and a brief description of the 
functions it must be able to perform. 

C. GOALS OF THE WARGAME 

The goals of the wargame are defined on two levels. The 
first concerns the goals of the wargame's design and the 
second concerns the goals of the players of the wargame. 

The goals of the wargame 's design should simply be to 
design the wargame so that each of the battalion's goals are 
not only played, but also their degree of accomplishment is 
measured. Specifically, availability, vulnerability, 
casualties, and logistics optimization should all be played 
in quantifiable terms so that they can be measured by the 
computer portion of the wargame. Once they are measured, a 
measure of effectiveness (MOE) can be computed. This MOE 
provides feedback to the player so that they can reassess 
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their decisions and perhaps improve their MOE the next time 
the wargame is played. 

The goals of the players should therefore be the same as 
for actual operations; to maximize fire support provided to 
maneuver units by maximizing availability time, to minimize 
the amount of time spent above the commander's vulnerability 
threshold, to minimize the time lost to casualties, and to 
minimize the amount of time units spend either critically 
short or out of ammunition. 

These parallel goals (between the wargame and the 
players) serve as the thread of continuity which ties the 
wargame together. The wargame should be designed to 
accomplish the wargame 's system goals and all components of 
the system should contribute to the furtherance of the goals 
within the intent given by the wargame 's mission. In this 
way, the players will be able to use the same decision 
criteria in playing the wargame as they would in wartime. 
Their objective is to maximize the measure of effectiveness 
(MOE) by seeking to accomplish the player's goals which are 
the same goals which are found in the field artillery 
battalion system. 

The actual MOE used for this wargame, named the Field 
Artillery Battalion Command and Control (FABCAC) 
Effectiveness Index by the authors, is directly related to 
each one of the goals. The MOE is as follows: 
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MOE = "tube hours available" ratio - "truck hours lost 
to casualties" ratio - "tube hours above the 

vulnerability threshold" ratio - (.5 * "tube hours 

critically short of ammunition" ratio) . 

Each of the ratios in the MOE is in terms of actual hours 

over maximum possible hours. Tube hours lost due to 

casualties are not explicitly listed in the MOE because they 

are accounted for under availability time. Tube hours lost 

due to ammunition outage are also accounted for under 

availability time. By accounting for ammunition outage 

under availability time, the players are afforded the 

opportunity to minimize the effect of an ammunition zero 

balance by moving a unit since it cannot shoot anyway. In 

this way, the players can get the unit into a better 

position tactically and set its vulnerability level to zero 

while out of ammunition rather than during a period in which 

the unit could be shooting. 

D. WARGAME ENVIRONMENT 

The wargame simulates many of the more important aspects 
of the field artillery battalion system environment. First 
and foremost is the fact that the battalion exists in a 
hostile environment. This is reflected in the wargame by 
inducing attrition of howitzers and ammunition trucks using 
Lanchester-type equations. Attrition takes place both in 

positions and along displacement routes. Attrition rates 
are based upon force postures and the tactical situation. 
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Command and support relationships should be understood 
by the players. The wargame is consistent with actual 
doctrine in this respect. 

The facts that all of the units exist on the 
battlefield, are separated by considerable distances, are in 
positions which provide varying degrees of cover and 
concealment, and must move around the battlefield are all 
important to the design of the wargame. It is anticipated 
that the computer generated network will allow these aspects 
of the environment to be simulated. Many of the nodes will 
represent positions which afford varying degrees of cover 
and concealment. The paths indicate the distances between 
nodes and are used to control the movement of units between 
nodes so that realistic travel times are generated based 
upon path capacities. Additionally, paths have attrition 
characteristics which will determine the amount of attrition 
incurred by a unit while on that path. 

Finally, "friction" is an important element to portray 
in any military wargame. Units will not always move through 
a route exactly as scheduled. Enemy artillery attack will 
cause unscheduled moves. These kinds of problems are also 
found in the wargame in order to cause the players to be 
flexible and issue fragmentary orders to rectify the 
situation. 

The approach for the actual physical environment of the 
wargame involves a computer program which is written for 
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execution on a personal computer. It is important to 
restrict the wargame to execution on a PC because that is 
all that most battalions have readily accessible. This 
wargame can be played by the O&I section, the logistics 
section, and the battalion commander in the battalion 
headquarters or the PC can be set up in the battalion 
tactical operations center (TOC) in the motor pool. In 
either case, situation maps and status boards will be 
necessary not only to keep up with the battle, but also to 
help evaluate the effectiveness of the section's SOPs and 
information management procedures. 

E. WARGAME RESOURCES 

Other than the players themselves, personnel are not 
explicitly played as a part of this wargame. It is assumed 
that when equipment is lost, its personnel are also lost and 
vice versa. 

The only equipment represented in the wargame are 
howitzers and ammunition trucks. These are the primary high 
density items of equipment found in a battalion. They are 
also the items of equipment which most significantly impact 
on the accomplishment of the wargame' s mission. 

The only supply represented in this version of the 
wargame is ammunition. Ammunition, by far, represents the 
most bulk in resupply operations and is directly involved in 
the integration of tactics and logistics. 
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In order to effectively run the wargame, the following 
resources will be necessary: 

1. Operations players, logistics players, and commander. 

2. One, IBM compatible, personal computer. 

3. Maneuver unit operations order, overlays, and maps. 

4. O&I section and logistics section status boards and 
map boards. 

5. Wargame computer software and user's manual. 

F. MT^AGEMENT OF THE WARGAME 

All of the management as defined for the field artillery 
battalion system will be handled within the human 
interaction portion of the wargame. The commander will 
provide direction and leadership to the staff and he will 
make final decisions. The staff (O&I and logistics) will 
prepare estimates and plans. They will also assist the 
commander in monitoring operations by interpreting reports 
and preparing and communicating orders and by assessing the 
situation to determine if the plan needs to be modified. 

G. ARCHITECTURAL DEPICTIONS 

Once again, an effort has been made to separate the 
architectural depictions into four categories which 

represent functional, spatial, informational and time 

relationships. The architectural depictions have been 
separated from the previous discussion because most of the 
depictions transcend any one aspect of a system and 
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therefore serve to tie together the previously mentioned 
ideas. Additionally, they reveal new aspects of the system 
which have not already been discussed. 

1. Functional 

"Functional architecture describes the technical 
structure of large systems." [ref. 7: p. 2.4] Figure 3.1 
represents a decision taxonomy known as the "SHOR" paradigm 
[ref. 2: p. 626]. Within the context of this thesis, the 
"SHOR" paradigm is used to indicate, at a conceptual level, 
the boundary between the human portion of the wargame and 
the computer portion of the wargame. What is inside the 
dotted line is the human portion of the game and what is 
outside the dotted line is handled by the computer. An 
interpretation of the depiction indicates that the computer 
will provide some kind of trigger event which will provide 
the stimulus or data to the players (S) . This will cause 
the players to attempt to interpret the data to determine 
what it means in relation to their mission accomplishment 
(H) . They will then create alternative courses of action to 
counter the perceived impact of the data (0) . Finally, they 
will take action by issuing an order (R) . This order is 
executed by the computer and has some effect on the 
environment. The players monitor the environment and 
collect raw or preprocessed data and the cycle repeats 
itself. At any given time, multiple stimuli can be received 
by the players which can result in one or more responses. 
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THE SHOR MODEL 




Figure 3.1 The SHOR Model 
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The entire process takes place continuously for the duration 
of the game. 

Figure 3.2 is the computer architecture which will 
be used for the wargame. It has been divided into three 
major modules: the Pre-Processor, the Game, and the Post 
Processor. Each of these major modules has been divided 
into the lesser modules representing functions which are 
required to be performed to support the major module. Some 
of the more significant points which can be derived from 
this depiction are that the players will be able to input 
their own scenario if they do not want to use the one that 
will come with the game, the players will be able to input 
some of their own parameters which will represent their unit 
SOPs and commander's guidance, and finally, the players will 
be able to save a game which is in progress and then get 
back to it later. 

2. Spatial 

Spatial architecture depicts the physical 
relationship of the elements in the system. Figure 3.3 
depicts a basic level configuration for game's set-up 
requirements. Figure 3.4 depicts the spatial relationship 
of the elements of the field artillery battalion within the 
wargame. In this figure, it is apparent that all of the 
elements are spatially related to each other through the use 
of the network architecture. Units are located at nodes and 
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Figure 3.2 Computer Architecture 






Figure 3.3 Wargame Setup Requirements 
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displace along paths. The legend contains a listing of the 
various characteristics of nodes and paths. 

3. Informational 

Informational architecture depicts the flow of 
information within the system. Figure 3.5 is very similar 
to Figure 2.4 except that only those elements of information 
which will be used in the wargame have been listed on the 
diagram. Additionally, in Figure 3.5, the dotted line 
separates the game's players from the computer portion of 
the wargame. 

4 . Time 

The time based architectural depiction for the 
wargame is the same as for the field artillery battalion 
system. In both cases, the process that the key people must 
use to make decisions remains the same. Therefore, Figure 
2.5 applies equally well to the wargame. 

H. SUMMARY 

The basic conceptual approach taken for this wargame has 
been to analyze a field artillery battalion from a systems 
point of view. Then, using the knowledge gained from this 
analysis, lay out the conceptual framework for a wargame 
which emulates the pertinent aspects of the field artillery 
battalion. Once again, the systems approach is very useful 
in laying out this framework because it requires that every 
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Figure 3.5 Artillery Wargame Information Architecture 



49 




facet of the system be considered under the categories of 
mission, goals, environment, resources, and management. 

The wargame attempts to capture this framework in a form 
which provides a learning environment for those tasked with 
the command and control of a field artillery battalion. The 
wargame is only computer assisted since the essential 
element of any tactical command and control system is the 
human decision maker. The computer portion of the wargame 
only provides relevant information to the decision maker and 
then executes his decisions and keeps track of the game's 
statistics. At the end of the game, an MOE is calculated 
which provides an assessment of the player's performance. 
This forces the player to plan ahead and consider all the 
relevant concepts in order to maximize howitzer availability 
time, minimize casualties, minimize vulnerability time and 
optimize ammunition resupply. The intent of the wargame is 
to provide an environment in which officers can learn to 
consider the factors which are critical to the integration 
of tactics and logistics. 

The computer program itself is complex. It utilizes a 
network architecture to facilitate the movement of firing 
batteries and ammunition convoys and it uses Lanchester 
attrition equations to decrement forces. Among other 
things, the program simulates firing, consumption of 
ammunition, movement of units, ammunition resupply, and 
changes in the tactical situation. Periodic reports as well 
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as emergency messages and warning reports are output to the 
decision maker. The decision maker has the ability to issue 
commands to the units. Among the commands are movement 
orders, firing rate orders, ammunition resupply orders and 
requests for situation reports from the units. 

Finally, all this must be done in a format which is 
usable at the battalion level. This means that it will be 
executable on a personal computer, it will be well 
documented, and it will enable the players to use their 
normal unit / section SOPs. 
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IV. WAR6AME DESIGN 



A. INTRODUCTION 

The purpose of this Chapter is to supplement the 
documented source code which can be found in the Appendix. 
A description of the code's structure and organization can 
be found in the documented source code. In this Chapter, a 
description of the overall design used in the coding of the 
computer portion of the wargame will be given. 

Turbo Pascal version 5.0 and Turbo Pascal Database 
Toolbox version 4.0 were used to code the wargame. Turbo 
Pascal was used is because Turbo Pascal is one of the most 
popular programming languages on the market. By using Turbo 
Pascal, there is a reasonable expectation that users will be 
able to modify their own source code. 

In order to implement the wargame as described in 
Chapter III, a "Time Step - Event Driven Hybrid" design was 
used. An "Event Driven" design was needed to enable the 
players to issue orders for future operations. A "Time 
Step" design was used to perform the routine functions which 
constantly occur over time in an artillery battalion. The 
hybrid design will become more apparent later in this 
Chapter. 

Finally, a great deal of the design considerations used 
for the wargame revolve around the desire to make the game 
as "user friendly" as possible. In order to achieve this 
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objective, no computer commands are used in the wargame. 
Everything is menu driven. All data entry fields are 
protected so that only the correct type of data can be 
entered. The terminology used by the game is as close to 
actual military terminology as possible. 

B. OVERALL WARGAME DESIGN 

The wargame 's overall design can be described by 
referring to Figure 4.1. Note that upon loading the game 
there are three choices: ••Play New Game^^, ••Play Old Game^^, 

or ••Quit.^^ If ••Quit^^ is chosen, the player is returned 
immediately to MS-DOS. If ••Play Old Game^^ is chosen, the 
old game's files are loaded and the program goes straight to 
the Game Play Module. Finally, if '•Play New Game" is 
chosen, the Pre-Processor Module is entered. The Pre- 
Processor is the portion of the computer program which 
allows the player to set up or initialize the game with such 
data as the battalion's configuration, the unit movement 
network, the commander's guidance, the game's scenario and 
the game's parameters. When the player is finished with the 
Pre-Processor Module, he enters the Game Play Module. 

From within the Game Play Module, the entire game is 
played. The design of the game itself will be discussed 
later in this Chapter. From the Game Play Module, the 
player can quit the game at any time. Upon deciding to 
quit, the player has two options: either to quit with the 
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Figure 4.2 Gome Flow Chart 
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intent to continue playing the game later or to permanently 
quit the game. When "Quit and Return" is selected, the 
game's files are saved to disk. In both cases, the program 
then enters the Post-Processor Module. 

In the Post-Processor Module, the game's statistics are 
tabulated and the Field Artillery Battalion Command and 
Control Effectiveness Index is computed. After this 
information is printed, the program returns the player to 
MS-DOS . 

C. RECORDS 

The basic data structure used in the wargame is the 
record. The following records are used by this version of 
the wargame. 

1. Scenario Record 

2. Commander's Guidance Record 

3 . Game Parameters Record 

4. Field Trains Record 

5. Fire Unit Record 

6. Ammunition Truck Record 

7 . Events List Record 

8 . Node Record 

9 . Path Record 

The fields contained in each record can be found in the 
global declaration section of the source code. The first 
four types of records are all single records. The fire unit 
records and the ammunition truck records are maintained in 
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an array of records. Finally, the last three types of 
records are all stored in their ovm B+ lists in disk files 
created by the Turbo Pascal Toolbox. The events list 
records are stored in increasing order according to the 
event's date time group. The nodes and paths are each 
stored in their respective lists according to the node and 
path name. 

The reason that the fire unit records and the ammunition 
truck records are stored in arrays is because there are only 
a finite number of those records and because every record 
must be accessed every time step. On the other hand, the 
event list, node, and path records are stored in database 
files because there are potentially an unlimited number of 
these records and because only selected records will be 
accessed in any given time step. 

D. GAME PLAY DESIGN 

The Game Play Module was designed in accordance with the 
flow chart depicted in Figure 4.2. Note that in this top 
level flow chart for the Game Play Module there is only one 
decision point. This was deliberately designed in order to 
focus all aspects of the game at one point. This point is 
referred to throughout the rest of the thesis as the "hub of 
the wargame." From this hub there are three possibilities; 
the Time Step Module, the Issue Commands Module, and the 
Change Game Initialization Module. 
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Figure 4.1 First Order Flow Chart 
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If the "Change Game Initialization" option is chosen, 
the program takes the player to many of the same procedures 
that were used in the Pre-Processor Module. The player is 
given the opportunity to change commander's guidance, add 
nodes and paths, and change some of the game's parameters. 

If the "Issue Commands" Module is chosen, the player is 
given the option of issuing one of several commands. The 
list of possible commands follows: 

1. Convoy Ammunition Trucks 

2 . Dissolve Ammunition Truck Convoy 

3 . Move a Unit 

4. Reqi’est a Unit Situation Report 

5. Change a Unit's Firing Rate 

6. Assign Ammunition Resupply Mission 

7. Assign Ammunition Pickup Mission 

8. Issue a Fire Order 

9 . Cancel a Command 

In most cases, the result of a command is to add or 
delete one or more events list records. In some cases, it 
involves direct modification of ammunition truck records or 
fire unit records. 

If the time step is chosen, the program will increment 
the game time and then search the events list to retrieve 
any records with an execute time between the last time 
step's game time and the current game time. As each record 
is retrieved, it is executed based upon the record's key 
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field. The key field contains the "type action” which took 
place. This “type action” is what determines which 
procedure is called. After all applicable events are 
executed, the program enters the Field Trains Processing 
Module, followed by the Ammunition Truck Processing Module, 
then the Fire Unit Processing Module, and finally the 
Generate Messages Module. 

In the Field Trains Processing Module the vulnerability 
level is determined, then the program checks to see if the 
unit receives an enemy artillery attack, and finally, 
casualties are computed. In each of the different type of 
unit modules, the vulnerability level is determined and then 
casualties are assessed based on the linear law form of the 
Lanchester attrition equations. More will be said about the 
assessment of casualties later is this Chapter. 

Additional functions which take place in the Fire Unit 
Processing Module include the firing of ammunition by each 
fire unit, the determination of each unit's ammunition 
count / status, and the update of such fire unit statistics 
as availability time and ammunition critically low time. 

In the Ammunition Truck Module, the program conducts the 
actual resupply operations, checks for sufficient crew rest 
to carry on with the mission, assesses casualties, and 
increments the truck's statistic. The only statistic which 
is tracked is the truck's casualty time. 
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The last module of the time step is the Generate 
Messages Module. There are two general categories of 
messages, those which are sent to the players by the 
battalion's subordinate units and those which are sent by 
other elements. The former category of messages is 
generated by checking for various flags in each subordinate 
unit's records. The later type of message is generated at 
random times throughout game. Examples of this type of 
random message include such messages as the ''Bridge 
Destroyed" message and the "Road Mined" message. 

E. PROGRAM ILLUSTRATION 

In order to illustrate how all the different modules 
work together, an ammunition resupply operation will be 
described. It is important to note that an operation of 
this type may be only one of many operations taking place 
concurrently in the game. 

The operation which will be used for the illustration 
involves ordering a convoy of five trucks to move from point 
"A" to point "B" to deliver their loads of ammunition. 
Multiple commands must be used to issue this order. First, 
if not already organized into a convoy, the "Convoy 
Ammunition Trucks" command must be issued. In order for 
this command to be executed, all trucks must be in the same 
location. Next, the "Assign Ammunition Resupply Mission" 
command must be issued. This command modifies all the truck 
records in the convoy to reflect the fact that a mission has 
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been received, and to reflect the fire unit to be resupplied 
and the node in which the resupply is to take place. All 
trucks in the convoy must have full loads of ammunition on 
board in order for this command to be executed. Finally, a 
"Move Unit" command must be issued. In this command, either 
a depart or a occupy time is specified and a route is 
specified in terms of nodes and paths. 

When the "Move Unit" command is entered, a procedure is 
called which builds an itinerary for the unit. It takes 
either the depart time or the occupy time and works either 
forward or backward as appropriate to determine the 
itinerary. The time required to traverse each path is 
determined based upon the length of the path, whether it is 
day or night, the road conditions, and the type of convoy. 

Using this information, event list records are created 
for the time that the unit departs its current location, the 
time that a unit moves through each node in the route, and 
the time that the unit occupies its new location. During 
each subsequent time step, the events list is checked. For 
each event relating to this move, the convoy's location is 
changed as well as other fields in the record. Also during 
each time step, the trucks in the convoy have casualties 
assessed based upon the vulnerability level of the path they 
are traversing and whether it is day or night. 

Once the convoy arrives at its destination, each truck 
in the convoy is taken out of a moving status when the 
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occupation event is processed. In all subsequent time 
steps, until the resupply operation takes place, the program 
will check to determine if both the convoy and the unit to 
be resupplied are in the same location. If they are, the 
resupply operation will take place. After the resupply 
operation has taken place, the fire unit's ammunition count 
is incremented and each truck in the convoy's ammunition 
count is decremented. At the end of the time step a message 
is generated from the convoy to the battalion S4 notifying 
him that the mission has been accomplished and requesting 
further orders. 

F. CASUALTIES 

For the purposes of this wargame, it has been assumed 
that the artillery units would not receive any direct fire 
from enemy units. The only types of enemy fires in this 
wargame are from enemy air attack and from enemy artillery 
attack. Both of these types of attacks are produced by area 
fire weapons. Therefore, the Lanchester linear law 
differential model was used to assess casualties. 
Specifically, the following form was used: 

dx = - axy 

dt 

Where "a" is the attrition coefficient, ”x" is the number of 
friendly elements being attrited, and "y" is the number of 
firing elements. 
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For this wargame casualties are calculated based on 
three different possible unit postures: unit in a position, 
unit in a position and receiving a deliberate artillery 
attack, and unit moving. For each posture there are four 
different attrition coefficients: friendly cannons attacked 
by enemy artillery, friendly cannons attacked by enemy 
bombs, friendly trucks attacked by enemy artillery, and 
friendly trucks attacked by enemy bombs. The underlying 
unit of time for these coefficients is one minute. 

The number of friendly elements being attrited, "x", is 
the percent of each truck which is remaining for ammunition 
trucks. For firing units it is the number of firing 
sections in operating condition. 

The number of enemy firing elements, "y", is considered 
in two parts: enemy air bombs and enemy artillery rounds. 

This variable can be considered to be related to the 
intensity of the attack. For this wargame, the intensity of 
the attack varies according to several factors. Some of 
these factors are listed below: 

1. Day or night 

2. Rural or urban position 

3. High Medium or low cover and concealment 

4. Acceptable, high, or critical vulnerability level 

5. Maneuver mission offense or defense 

For each type of enemy weapon, air bomb or artillery round, 
the number of attacking elements is determined by summing 
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the nuinber of bombs or rounds contributed by each factor. 
For example, if a fire unit is in an urban position, the 
time is later than end-evening-nautical-twilight (BENT) , the 
position has good cover and concealment, the unit's 
vulnerability level is acceptable, and the supported 
maneuver unit's mission is offense then the value of "y” is 
determined by summing the number of bombs or the number of 
artillery rounds for those particular factors which are 
applicable to the unit's situation. 

Next, the casualties assessed against the friendly truck 
or fire unit due to each type of enemy weapons system, air 
bomb or artillery round, are calculated and then summed. 
Once the casualties for one minute are determined, they are 
multiplied by the number of minutes in a time step and then 
assessed by subtracting the determined amount of casualties 
from the truck's effective percent figure or from the number 
of firing sections in operating condition for fire units. 

By computing casualties in this manner, one procedure is 
used to determine casualties for any given situation by 
passing the appropriate parameters in the procedure call. 
The parameters are the type unit, the unit's posture, and 
factors which are applicable to the situation at hand. 
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V 



PLAYER'S MANUAL 



A. INTRODUCTION 

This chapter is intended to provide a stand alone 
player's manual for the play of the wargame. For 
information concerning the technical aspects of the code, 
refer to Chapter IV or to the documented source code itself. 
In this chapter, the mechanics of actual game play will be 
discussed. 

The wargame can be thought of as consisting of two 
parts, the computer assisted part and the manual part. In 
the manual portion, players should attempt to operate as 
closely as possible to the way they normally operate during 
combat or simulated combat conditions. The computer 
assisted portion of the game involves a computer program 
which provides the dynamic information which the players use 
to make command and control decisions. The computer 
assisted portion also keeps track of statistics and 
calculates a measure of effectiveness which can be used to 
assess player performance. 

The wargame can be played at any level of intensity. 
That is, the players can play the manual portion of the game 
at a full scale with written orders, staff estimates, and 
detailed planning or they can play it relatively casually by 
just using "judgement" or "best guesses" to make decisions. 
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In either case, the computer assisted portion of the game 
remains the same, it simply takes the human input and 
processes it. The point is that the game can be played as a 
part of a full battalion CPX or during weekly officer 
professional development time. This is possible because the 
wargame is designed to be played at the player's pace. The 
pace is determined by the player by requiring him to 
physically initiate each time step. 

In order to make the wargame easy to learn and remember, 
the wargame was designed to be completely menu driven. 
There are no commands to remember. 

B. MEASURE OF EFFECTIVENESS (MOE) 

It is important to discuss the wargame 's measure of 
effectiveness up front in the player's manual because it 
tells a lot about what the game's objectives are and what 
the player's objectives should be. While playing this game, 
the player should always keep in mind the fact that the 
mission of the wargame is to train officers in the 
integration of tactics and logistics as it relates to the 
command and control of a field artillery battalion. As 
such, the game is oriented toward the integration of tactics 
and logistics and may not do justice to other important 
aspects of a field artillery battalion. 

The player's objectives should be to play the game by 
taking the same actions they would take in a real situation 
while trying to maximize the game's MOE. The MOE is 
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calculated based upon statistics which are compiled 
throughout game play. The intent of the MOE is to reinforce 
favorable statistics and to penalize unfavorable statistics. 
In this way, players can judge how effective they were at 
the command and control of the field artillery battalion. 

The statistics which are tracked in the wargame mirror 
the four goals of a field artillery battalion as discussed 
in Chapter II. The actual MOE, called the Field Artillery 
Battalion Command and Control Effectiveness Index, is 
directly related to each one of the goals. The MOE is as 
follows : 

MOE = "tube hours available” ratio - "truck hours lost 
to casualties” ratio - "tube hours above the 
vulnerability threshold” ratio - (.5 * "tube hours 

critically short of ammunition” ratio) . 

Tube hours lost due to casualties are not explicitly listed 

in the MOE because they are accounted for under availability 

time. Tube hours lost due to ammunition outage are also 

accounted for under availability time. By accounting for 

ammunition outage under availability time, the players are 

afforded the opportunity to minimize the effect of an 

ammunition zero balance by moving a unit since it can't 

shoot anyway. In this way, the players can get the unit 

into a better position tactically and set its vulnerability 

level back to zero while out of ammunition rather than 

during a period in which the unit could be shooting. 
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C. GETTING STARTED 



To start the computer assisted portion of the wargame, 
the players must first ensure the printer is turned on and 
is on-line. At the "A:" prompt, type WARGAME and press 
"return." This will take you to the Main Menu. Throughout 
the wargame, the "arrow" keys are used to move the cursor to 
the various choices, the "return" key is used to make a 
selection and the "FI" key is used to get help. Any data 
fields which require a choice to be made between such 
entries as "high", "medium", or "low" can be entered by just 
typing the first letter of the word, e.g., "h", "m" , or 
"1". At the main menu the player has three options; start a 
new game from the beginning, continue an old game from the 
point where the game was previously quit, or simply to quit 
the game and return to the MS-DOS "A:" prompt. 

Selecting "Continue an Old Game" will take the player 
directly to the game play screen and will pick up with the 
one and only old game which is on file on that particular 
disk. Selecting "Start a New Game" will require the player 
to initialize the game. This can be done by loading a 
scenario file. The "Enter Scenario File Name" screen allows 
the player to do this. Refer to Figure 5.1 at the end of 
the Chapter. When the screen first is displayed, the cursor 
is after the "sen" on the directory line. The player has 
two options. He can hit "return" to get a directory listing 
of all the scenario files on the disk or he can press the 
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"escape" key to build a new scenario file. If the "escape" 
key is used, the program will require the player to enter a 
scenario name. A valid scenario file name is "*.SCN." If 
the player chooses the directory listing, then he must place 
the cursor over the file name desired and press "return." 
Either case will lead to the Game Setup Menu. 

D. GAME SETUP MENU 

The purpose of this menu is to allow the players to 
start the game or view, change, or print the game scenario / 
network, the game parameters, the commanders guidance, and 
the battalion configuration / status. All but the "Play 
Game" option will be discussed in this section. The "Play 
Game" option will be discussed in Section E of this chapter. 

It is strongly recommended that players print all of the 
game initialization data before beginning the game. This 
serves two purposes. First, it forces the player to review 
the data to ensure it is correct. Secondly, it gives the 
players a hard copy of the data that can be used throughout 
the game as a reference. All printing is done by pressing 
the "F4" key. This prints the currently displayed screen. 

Throughout the view and change options, use the arrow 
keys to move between fields, use "page up" and "page down" 
to move between pages where applicable, and use the "escape" 
key when finished with an option. 
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1. view or Change Scenario / Network 



This option takes the players to another menu which 
allows them to view, change, or print the administrative 
information contained in the scenario file, the network node 
data, and the network path data. It also allows them to use 
the network utility to test the network. 

The term "network" as used here refers to the unit 
movement network. Unfortunately, all unit movement in this 
game is represented by moving along this network. This will 
require the player to translate from grid coordinates and 
routes on the map to nodes and paths in the unit movement 
network. 

In this network, nodes represent positions, or 
potential positions. Paths represent a route between two 
nodes. The nodes have a specific grid location on the map 
whereas the paths provide connectivity between two nodes. 
There may be two or more paths between the same two nodes. 
The conventional depiction of a network shows the paths 
between nodes as straight lines. For this wargame, it is 
recommended that an overlay be developed which shows all of 
the nodes as circles over their grid locations and all of 
the paths as route traces of the routes represented by each 
path. Each node and path will be labeled with a unique 
name. (Nodes are labeled with up to three numbers and paths 
with up to three letters.) In this way, the players can do 
their normal planning. When they give the movement order to 
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the computer assisted portion of the wargame, they use the 
overlay to dictate the route. (A future version of this 
game should just take the start and end nodes and detennine 
the optimal route.) 

Under the node data and path data options, the bulk 
of the network can be setup before the game. However, it is 
still possible to add nodes and paths during game play. The 
importance of setting up a good network cannot be over 
emphasized. The larger and more comprehensive the network, 
the more flexible and more realistic the game play will be 
for the players. The entire game is structured around the 
movement network. Units occupy nodes and move along paths. 
Point distribution of ammunition must also take place in a 
node. 

The computer assisted portion of the game is 
interested in more than just location and length information 
for each node and each path. There are many other elements 
of information which are necessary to describe the nodes and 
paths. These will be covered in more detail in paragraphs 
b) and c) in this section. 

a. Scenario Information (Figure 5.2) 

This option allows the players to view, change, 
or print the administrative information contained in the 
scenario file. This screen contains the operations order 
number, the date of operations order, the map sheets used in 
the scenario, the game start time, and finally an 
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administrative note to be used at the discretion of the 



scenario builder. 

b. Path Data (Figure 5.3) 

Most of the fields in the path data screen are 
self explanatory. However, a few will require some 
explanation. A path in this game can have no more than one 
bridge. The player will have to pick a bridge if there is 
actually more than one bridge on the map. 

Road conditions and path vulnerability each have three 
levels of quality. It is up to the players to make this 
assessment in accordance with the relative conditions in the 
game's area of operations. To get the first data screen, 
press "F5." 

c. Kode Data (Figure 5.4) 

The node data screen is also fairly self 
explanatory, however, a few items require some discussion. 
A given node must have at least one but no more than six 
paths associated with it. A node can have an ammunition 
count independent of any fire units or ammunition trucks. 
This gives the players the ability to preposition ammunition 
at a node for eventual transfer to a fire unit or ammunition 
truck. The type position and cover and concealment fields 
are like the path vulnerability and road condition fields in 
that the entry is at the discretion of the players but 
should be based upon the relative conditions in the area of 
operations. All of these fields are important to the game 
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because they are some of the previously mentioned factors 
which help to determine the casualty rates. 

d. Network Utility 

This option has not yet been implemented. It 
will eventually allow the player to test the network by 
tracing routes through the network and determining route 
distances . 

2. View or Change Game Parameters (Figure 5.5) 

This option allows players to view or change the 
game parameters. The game parameters are generally expected 
values of such variables as convoy speeds. These expected 
values can be set by the players to reflect the average 
speeds based on a specific area of operations or opposing 
force. For example, an area with a good road network will 
have a higher expected value for the convoy speed. The 
actual values used by the game will be based on these 
expected values but will vary according to many factors. 
Examples of some of these factors are the unit's mission, 
the road conditions on the specific path, the intensity of 
conflict, etc. 

3. View or Change Commander's Guidance (Figure 5.6) 

This option allows the player to view or change 
elements of commander's guidance. The commander's guidance 
data consists of items which could be part of a unit's 
standard operating procedure (SOP) , part of a specific 
operations order, or verbal guidance given by a battalion or 
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division artillery commander for a specific operation. The 
commander's guidance can also be changed while playing the 
game . 

4 . View or Change the Battalion Configuration / Status 

This option allows the player to view or change data 
concerning the battalion's field trains, fire units and 
ammunition trucks. The data concerning these elements is 
the data that will be used to start the game. 

Upon selecting this option, another menu is 
displayed. The first choice allows the player to view or 
change the trains location. The second option allows the 
players to view or change the number of fire units, and the 
number of ammunition trucks in the battalion at the 
beginning of the game. The third choice allows the player 
to view or change the starting firing unit data. And the 
last choice allows the player to view or change the starting 
ammunition truck data. 

a. Location of Trains 

This screen contains only the field trains 
location. Note that the correct entry for all location 
fields in this game are in terms of the unit's position node 
name . 

b. Number of Fire Units / Trucks (Figure 5.7) 

Whatever numbers are entered for the number of 
fire units and the number of ammunition trucks determines 
the number of screens that are created for the next two 
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options. The maximum number of fire units in this game is 
six and the maximum number of ammunition trucks is twenty- 
four. If there are three fire units currently on disk and 
six is entered for the number of fire units, then the third 
fire unit's data will be duplicated three more times for the 
additional three fire units. The next option can be used to 
edit the new fire unit records. 

c. Firing Unit Data (Figure 5.8) 

Use the "page-up” and "page-down" key to move 
between the various pages of fire unit data. Most of the 
fields on these screens are self explanatory. However, a 
few require additional explanation. 

The location fields indicate the locations of 
the units at the beginning of the game. These locations are 
in terms of nodes. From a game play perspective, these 
positions can be pre-hostility assembly areas or they can be 
initial firing positions. At the beginning of the game, the 
player will be queried at the start of each time step as to 
whether or not hostilities have commenced. If the answer is 
no, the game continues but no casualties are assessed and no 
rounds are fired. If the answer is yes, the game continues 
with firing and casualties and the players will no longer be 
queried about the beginning of hostilities. This procedure 
gives the players the ability to exercise a pre-hostility 
deployment plan and tactically position their fire units and 
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their ammunition trucks prior to the commencement of 
hostilities . 

The maximum rounds capacity per firing section 
field refers to the number of rounds the particular weapon 
system / organic ammunition carrier can carry combat loaded. 
The number of rounds on hand per fire unit can exceed the 
unit's total capacity while in a firing position. However, 
when the fire unit displaces, it can only move with its 
maximum total capacity. The excess rounds will be left as 
prepositioned ammunition on that node. Separate 

arrangements must be made with battalion ammunition trucks 
to transport that ammunition if necessary, 
d. Ammo Truck Data (Figure 5.9) 

As with the fire unit data, use the "page-up" 
and "page-down" keys to move between screens. All of the 
fields should be self explanatory. 

E . GAME PLAY 

After completing the initialization process, the player 
should select the game play option. This will lead to the 
game play control screen (Figure 5.10) which is the hub of 
the wargame. From this screen the players can initiate time 
steps, issue commands, change parameters, utilize the 
network utility, and they can end the game play by selecting 
the quit option. The game time will always be displayed on 
any screen which is generated out of the game play control 
screen . 
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In order to play the game, the following players are 
required as a minimum: A battalion commander, a battalion 
O&I section, and a battalion S-4 and / or Service Battery 
Commander. These players are required in order to integrate 
tactical and logistical planning and execution. 

The game is actually played by initiating a time step, 
viewing and / or printing any messages which may be 
generated during the time step, and then issuing any 
commands which may be necessary for the battalion to execute 
its plans. The players themselves should act out their own 
roles as if the wargame were actually a real situation. 
However, rather than sending or receiving information / 
orders using a radio, the players will receive information 
from the computer and will send orders to the units 
represented by the computer. 

The players should conduct all planning in accordance 
with their own unit standard operating procedures and Army 
doctrine. For the computer assisted portion of the game, 
special emphasis should be given to logistics plans since 
the computer will require detailed orders for ammunition 
resupply. Fire plans should also be made either manually or 
using TACFIRE. Finally, plans should be made well in 
advance for future fire unit moves so that routes can be 
planned thereby facilitating timely execution. 
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1. Time Step 



This option will process all events which take place 
from the current time to the new current time. The 
difference between these times equates to the length of a 
time step. The time step size is set by the players under 
the game parameter option during game setup. A size of 30 
minutes is recommended. 

There are many functions which take place during the 
time step. The fire units shoot at some rate which is a 
function of the battalion's CSR but can not exceed the 
weapon system's sustained rate of fire. Resupply 
transactions take place between ammunition trucks and fire 
units in accordance with their orders. Ammunition trucks 
return from the ammunition transfer point with new truck 
loads of ammunition but the total ammunition drawn in a day 
can not exceed the battalion's CSR. Units / trucks move 
around the battlefield in accordance with their orders. 
Units may receive incoming artillery and must request 
permission for an emergency displacement. And finally, 
units / trucks may receive casualties where the degree of 
casualties is based upon numerous factors such as the type 
position, the position's cover and concealment, and the 
unit's vulnerability factor. 

Casualties are determined each time step whether the 
units are in a position or are on the move. Casualties are 
assessed as fractional parts of firing sections and 
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ammunition trucks rather than whole sections and trucks. 
This is a result of the fact that Lanchesterian attrition 
was used. Therefore, casualties are determined as an 
expected value over time rather than discrete amounts. Due 
to this fact, it is possible to have less than a whole 
ammunition truck and less than a whole number of firing 
sections in a fire unit. In turn, all quantities which are 
related to these systems are calculated based on the 
effective percent of the system. For example, if a 
particular ammunition truck is at 74 effective percent, then 
it can only haul 74 percent of its full ammunition capacity. 

During the time step, the computer not only executes 
previously issued commands, but also generates messages for 
the players to review and, if necessary, take some action. 
A discussion of each message follows: 
a. Incoming Artillery 

This message notifies the battalion staff that 
the named unit is receiving incoming and that they request 
permission for an emergency displacement. It requires the 
players to make an immediate response of either "y" or •'n.'* 
If ”y" is entered, the unit will displace to its alternate 
position within the same node. It will be in a moving 
status for approximately 30 minutes. Upon occupation, its 
vulnerability level will be set back to an acceptable level. 
If "n" is selected, the unit will stay in position and ride 
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the attack out. Casualties will be higher and its 
vulnerability level will continue to increase. 

b. Unit Situation Reports 

These messages will be displayed on a periodic 
basis in accordance with the battalion's standard operating 
procedure. The situation report frequency can be set using 
the "commander's guidance" option under the "Change 
Parameters" option of the Game Play Menu. Use the "page-up" 
and "page-down" keys to move from one unit situation report 
to the next. All fire units and the field trains will be 
displayed. 

c. Bridge Out 

This message will appear randomly. It notifies 
the players that a bridge on a certain path is out. It is 
up to the players to avoid the path once this message is 
received. If the players send a unit down a path which has 
a bridge out, then the time the unit spends on the path will 
be greatly increased. 

d. Minefield 

This message will appear randomly. It notifies 
the players that a minefield has been placed on a certain 
path. It is up to the players to avoid the path once this 
message is received. If the players send a unit down a path 
which has a minefield, then the time the unit spends on the 
path will be greatly increased and the casualties will be 
increased . 
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e. VulnereUsility High / Critical 

This message notifies the players that the 
vulnerability threshold for the named unit has become high 
or critical. To warrant a rating of high, a fire unit must 
exceed the commander's guidance for either the number of 
rounds fired out of a position or the amount of time spent 
in a position. The rating becomes critical when both items 
of the commander's guidance has been exceeded. For the 
field trains, the rating is high if too much time is spent 
in the position. And if two times the commander's guidance 
for time in position is exceeded, the field trains receives 
a vulnerability rating of critical. In either case, the 
expected value for the degree of casualties increases as the 
vulnerability rating increases. 

f. Ammunition Low / Critical / Out 

This message notifies the players, as a real 
fire unit would, when the named fire unit's ammunition 
levels decreases below certain thresholds. If the 

ammunition count is below 35 percent of the unit's maximum 
capacity, then the ammunition status is "low.” If the 
ammunition count is below 10 percent of the unit's maximum 
capacity, then the status is "critical." And finally, if 
the ammunition count is 0, then the ammunition status is 
"out." 

There is no penalty for an ammunition status of 
"low." It simply serves as a warning to the S4 to begin 
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planning for ammunition resupply operations to that unit. 
If the status is "critical", then the unit is not considered 
fully available. The amount of time a unit spends 
critically short of ammunition is incremented and, at the 
end of the game, a portion of the critically short time is 
subtracted from the availability time. Finally, if the unit 
is "out" of ammunition, it is placed in a cold status and is 
therefore not available to support the maneuver forces. The 
"Change Rate of Fire" command can be used to tell a firing 
unit to decrease or increase its rate of fire. 

g. Resupply / Pick-up Complete, Request Orders 

This message is generated when an ammunition 
truck has completed an ammunition resupply or pickup mission 
and needs further guidance. The players then must issue the 
appropriate commands to instruct the truck where to go and 
what to do. In most cases, since the truck can only go to 
the ammunition transfer point from the field trains 
location, the players will issue an order to get the truck 
back to the field trains. Another option would be to 
instruct the truck to go to a specific node to pick up 
prepositioned ammunition. 

This approach was taken because most ammunition 
trucks / convoys do not have organic radios. In most cases 
they would call the field trains, utilizing the resupplied 
unit's radio, to give a situation report after accomplishing 
their resupply mission. 
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h. Return from Ammunition Transfer Pointy Field 

Trains Gone, Request Orders 

This message is generated when an ammunition 

truck returns to what was the field trains location and 
finds that the field trains is no longer there. The 

player's reaction should be to issue orders to the truck 

either to get to the field trains or to go somewhere else to 
deliver the ammunition. 

i. Crew Rest Warning 

This message is generated when an ammunition 

truck is given a movement order and the truck's crew has not 
had the amount of rest dictated by the commander's guidance 
in the last 24 hours. The truck will still accept the 
orders, but the casualty rate will be a little higher. If 
the crew has not had the amount of rest dictated by the 
commander's guidance in the last 4 8 hours, then the truck 
will not be able to accept the orders. This will force the 
battalion's logistics planners to use all of the trucks 
equally and to consider crew rest in their planning. 

j . Front Line Trace Change 

This message will be generated on a random 

basis. When the maneuver forces are in the offense, the 
front line trace will move some specified distance usually 
towards the enemy in the direction of the attack. When the 
maneuver forces are defending against an enemy attack, the 
front line trace will move some specified distance usually 
toward the friendly forces in the direction of the enemy 
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attack. The player's actions upon receipt of this message 
should be to redraw the front line trace on their maps and 
then check their firing unit's ranges to determine if they 
need to be moved. 

2. Issue Commands 

This option is chosen to give orders to any of the 
game's entities, i.e., firing units and / or ammunition 
trucks. Once chosen, the player is taken to another menu 
which lists each of the various types of commands. By 
selecting a command description from this menu, the player 
will be taken to the command screen. Most of the commands 
have a unique command number. It is recommended that the 
”F4” key be used to print the command screen so that the 
players can keep track of the commands given and their 
associated command number. The command number is needed in 
order to cancel a specific command. 

a. Convoy Ammunition Trucks (Figure 5.11) 

This command enables the players to organize the 
ammunition trucks into convoys. The convoy name must be 
unique. Up to 24 trucks can be placed in a convoy but a 
given truck can only be associated with one convoy. 
Furthermore, all trucks named in the command must be at the 
same location when the command is given. If the desired 
trucks are not all at the same location, then the "move” 
command must be used to get them all to the same place. 



84 



Once a truck is assigned to a convoy, it can 
only receive orders as a part of the convoy. If one of the 
trucks in the convoy can not accept a convoy order due to a 
critical lack of crew rest, then the truck will 
automatically be taken out of the convoy and will not 
execute the order. 

b. Remove Ammunition Truck Convoy (Figure 5.12) 

This command enables the players to break-up the 
named convoy. All of the trucks in the convoy will be 
disassociated from the convoy and will once again be able to 
receive orders as individual trucks. 

c. Move a Unit (Figure 5.13a and 5.13b) 

This command enables the players to order units 
to move around the battlefield. The players should first 
plan the move on a map of the battlefield. Once they 
determine where they want the unit to move, they should 
refer to the unit movement network overlay to determine if 
the appropriate nodes and paths exist to make the move. If 
they do not exist, the players should use the "change 
parameters" option to add the needed nodes and paths. Once 
this is completed or if the nodes and paths already existed, 
then this command screen can be used. All the fields on 
these screens should be self explanatory except the "node to 
resupply" field. If the unit making the move is a firing 
unit or ammo truck/convoy and it is supposed to pick up or 
deliver ammunition along the way, then the players should 
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enter the node where the ammunition resupply is to take 
place. This will cause the fire unit to stop at that node 
to pick up ammunition. If the ammunition resupply trucks 
are not there, then the ammunition resupply will not take 
place and the fire unit will continue on its way after one 
time step. 

d. Request Situation Report 

This command is used by the players to get an 
immediate situation report. The output of this command will 
be in the same format as the unit situation report which is 
generated on a periodic basis during the game. The 
situation reports for all units will be displayed. 

e. Change Firing Rate (Figure 5.14) 

This command is used to speed-up or slow-down 
the named fire unit's rate of fire. The number entered for 
the firing rate is a percent of the battalion's CSR. If the 
number exceeds 100, then the firing rate will be such that 
the unit, if in a firing status all day, will expend more 
than its "CSR worth" of ammunition. On the other hand, if 
the CSR is less than 100, then less than the "CSR worth" of 
ammunition will be expended. This command is intended to be 
used to manage the unit's ammunition expenditure. One of 
the statistics reported at the end of the game is the amount 
of ammunition the battalion has on hand in excess of the 
battalion's CSR. Since the CSR should never be higher than 
what the battalion requested as the required supply rate 
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(RSR) , this statistic should be minimized. Therefore, the 
players should use this command both to ensure the fire 
units do not run out of ammunition and to ensure that too 
much ammunition is not on-hand at the end of the game. 

If the firing rate entered is less than 50 
percent of the battalion's CSR, then the unit will be 
considered less than 100 percent available. The percentage 
of time considered available will be the same percentage as 
the firing rate. 

f. Ammunition Resupply Mission (Figure 5.15} 

This command is used to assign a resupply 
mission to an ammunition truclc or convoy. Legal entries 
for the "Unit to Resupply" field include any of the fire 
unit names and the word "prepo." By entering preposition, 
the players are telling the truc)cs to deliver the ammunition 
to a node where the ammunition will be unloaded. The 
players can then use the next command to tell a fire unit to 
pic)c up the ammunition. 

For any resupply mission to actually ta)ce place, 
the truc)cs must be full and located at the same node as the 
fire unit. If a preposition mission, then the truclc must be 
at the node specified in the resupply command. In order to 
get the truc)c and the fire units into the same location, one 
or more move command must be used. Therefore, to cause a 
resupply mission to be executed, the players must issue at 
least two commands, a resupply mission command and a move 
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command to the truck / convoy or to the fire unit or to both 
the fire unit and the truck / convoy. 

It is important to note that since the wargame 
uses Lanchesterian attrition, the trucks are attrited by 
fractions of a truck. Therefore, as the game progresses, 
each truck will have a different effective strength. Since 
a truck can only carry its "effective strength" worth of a 
full truck's hauling capacity, less rounds than full 
capacity of a truck will actually be delivered to the fire 
unit or node. This will require the players to keep track 
of each truck's hauling capacity. This approach may not be 
100 percent realistic but it does account for the expected 
value of casualties over time. 

g. Ammunition Pickup Mission 

Selection of this command will take the players 
to another menu. This menu gives them two options, "Fire 
Units" or "Ammo Trucks". 

If "Fire Units" is chosen, the command screen 
(Figure 5.16) is used to tell a fire unit to go to a node to 
pick-up prepositioned ammunition. Like the resupply 
command, this command will require the players to give a 
move command to the fire unit if it is not already in the 
appropriate node. 

If "Ammo Trucks" is chosen, the command screen 
(Figure 5.17) is used to tell an ammunition truck or convoy 
to go to the ammunition transfer point (ATP) to pick-up 
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ammunition. The trucks must be in the field trains location 
to receive this command. This constraint was imposed 
because it was assumed that the trucks would have to at 
least pass through the field trains on the way to the ATP to 
get paperwork, and / or fuel, food, maintenance, and rest. 

The amount of time the trucks take to go to the 
ATP is randomly chosen based on a normal distribution with a 
mean of the "ATP turn-around time" as specified under the 
game parameters. It is important to update the ATP turn- 
around time whenever the field trains moves or the ATP 
moves. Unlike the resupply command and the fire unit pickup 
command, a move command is not necessary with this command. 

The battalion can only pick-up its "CSR worth" 
of ammunition during any given day. Even if the day's 
allotment of ammunition has already been picked-up from the 
ATP, the wargame will allow the players to send trucks to 
the ATP. However, the trucks will return empty. The point 
is that it is up to the players to manage both the pick-up 
and delivery of ammunition. 

h. Issue Fire Order (Figure 5 . 18 ) 

This command enables the players to issue 
battalion level fire orders. It can be used to direct the 
fire units to shoot battalion level targets of opportunity 
or planned fires. Planned fires can be planned either 
manually or using TACFIRE to fulfil the requirements of the 
fire support annex of the maneuver unit's operations order. 
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Once the fire plan is finished, it can be sent to the fire 
units using this command screen. All that is necessary is 
the unit name, time to fire, and the number of volleys. 

The intent of this command is to ensure that the 
S3 players are able to perform all of their responsibilities 
while trying to integrate operations and logistics in the 
command and control of the battalion. They must be careful 
not to shoot so much ammunition that the fire unit's rate of 
fire must be reduced to too low a level to be considered 100 
percent available. On the other hand, they must conduct 
normal fire planning in support of the maneuver forces, 
i. Cancel Command (Figure 5.19) 

This command enables the players to delete the 
following commands: "Move a Unit", "Ammo Resupply Mission", 

"Ammo Pickup Mission", and "Issue a Fire Order." Each of 
these command screens has a "command nuxaber" field which 
contains a computer generated number. It is this number 
which is entered into the "Cancel Command" screen in order 
to cancel a specific command. For all but the "move" 
command, the command must not have been executed in order 
for the "cancel" command to have any effect. In the case of 
the "move" command, if the move has already begun but is not 
yet completed, the "cancel" command will cause the unit to 
stop at the nearest node. If the unit is a firing unit and 
it has ammunition, it will go into a firing status unless it 
is immediately given another movement order. 
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If a fire unit is on the move, and the players 
want to hip-shoot the fire unit, then they must cancel the 
move command and issue a fire order. If any type unit is on 
the move and the players want to change the route or 
destination, then they must cancel the "move" command and 
then issue a new "move” command from the unit's new 
location. 

3 . Change Pareuneters 

Selection of this option from the game control 
screen takes the players to more menus which give them the 
ability to change all the entries which were made during 
game setup except for the battalion configuration / status 
records. For example, the time step size can be changed, 
nodes and paths can be added to the network, and the 
situation report frequency can be changed. The battalion 
configuration records can not be accessed because they 
contain the status of the battalion at the start of the 
game. To give the players the ability to edit these records 
would be the same as giving them the ability to circumvent 
the commands. If the players want to check a units status, 
they can use the "Request a Situation Report" command. 

4 . Network Utility 

This option is not yet implemented. It is 
envisioned that this option will be used by the players to 
conduct movement planning. This option will eventually be 
capable of determining the shortest route by time or 
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distance and determining the safest route according to the 
path vulnerability levels. 

5. Output Game Statistics 

This option gives the players the ability to request 
the game's statistics, MOE, and the number of rounds on-hand 
in excess of the battalion's CSR at any point during the 
game. It is recommended that this listing be printed at 
least once at the end of every 24 hours of game play. This 
will provide a means of comparing statistics between games 
to judge if the players are improving in their ability to 
command and control the battalion. More will be said on the 
meaning of the statistics in Section F of this chapter. 

5. Quit 

Upon selecting the "Quit" option, the players are 
given two options. The first option is to quit with the 
intention of continuing the game later. This gives them the 
ability to continue the game where they left off at a later 
date. All of the appropriate files are saved to disk and 
are recalled the next time the game is played by selecting 
the "Continue an Old Game" option from the main menu. The 
second choice is to quit the game without the intention of 
ever continuing the game. In this case, the game's data is 
not saved to disk. 

In either case, the computer will provide a listing 
of the wargame's statistics, the MOE, and the number of 
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rounds rexaaining in excess of the battalion's CSR before 
returning to the MS-IX)S "A:” prompt. 

F. INTERPRETATION OF THE RESULTS 

The "results" referred to in this section is the listing 
which is printed whenever the "Output Game Statistics" 
option or the "Quit" option is selected from the game play 
control screen (Figure 5.20). The listing itself should be 
self explanatory. It is the interpretation of the listing 
which requires some explanation. 

Each time the listing is obtained, it is based on the 
cumulative statistics from the start of the game to the 
current time rather than since the last time the listing was 
obtained. Since this wargame does not allow replacements of 
casualties, the availability ratio will gradually decrease 
as time goes on due to casualties alone regardless of how 
well the players exercise command and control over the 
battalion. The same is true of the truck casualty ratio 
except that it will gradually increase. Since Lanchesterian 
attrition was used, this amount of change in the statistics 
should be consistent for the same wargame setup data and the 
same C2 decisions at any given amount of time into a 
particular game. Therefore, in order to be able to compare 
the performance between different groups of players playing 
the same game or between the same group of players playing 
the same game at two different times, they must obtain a 
printout of the statistics at the same amount of time into 
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the game during each game. For example, if the players 
request output of the statistics after every 24 hours of 
game play each time they play the game, they will be able to 
compare their performance from game to game. This is 
because the differences in the statistics for the same 
amount of time into each game will be due to command and 
control decisions made by the players. There will be no 
dependence on the amount of casualties which occur based 
simply on the amount of time the game has been played. 

The ratios provide a measure of how well the players 
have performed with respect to the specific statistics 
involved in each ratio. For a better idea of how well the 
players have performed with respect to the overall command 
and control of the battalion, the Field Artillery Battalion 
Command and Control Effectiveness Index is used to determine 
a number which is based on all of the ratios. The number 
itself has no meaning other than as a means of comparing 
performance from one game to the next, assuming the same 
game setup data is used for each game. It can also be used 
to compare performance between two different groups of 
players each playing their own game when each game had the 
same setup data. 
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battalion has prepositioned in nodes. Even prepositioned 
ammunition which is currently behind enemy lines is included 
in the count because it is assumed that the loss of 
ammunition was a result of a poor command and control 
decision on the part of the players. The product of the 
battalion's CSR and the number of tubes in operating 
condition is then subtracted from the total count. The 
player's objective is to minimize this number. If the 
number is negative, the battalion has less than the CSR on- 
hand. The greater the number, the more rounds the battalion 
has on hand in excess of the CSR. Since it is assumed that 
the RSR equals the CSR in this game, large numbers would 
tend to indicate that the battalion did not properly project 
their required ammunition supply rate. 
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The Artillery Wargome 






1 1 Choose —* Select FI- Help F4-New Mask 




Figure 5.1 Build Scenario Screen 
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The Artillery Wargame I 



Scenario / Network 



OPORD n : 00001 

OPORD Date : 15 0600Z Jan 89 

Mop Sheets : Ft Knox 

Game Start Time (DTG) : 17 0530Z Jan 89 
Admin Note : 



I 1 Choose Fl-Heip F4-Prn Scr ESC-Done 





Figure 5.2 Scenario Data Screen 
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Figure 5.3 Path Data Screen 



98 




Figure 5.4 Node Data Screen 
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Figure 5.5 Game Parameter Screen 
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Figure 5.6 Commander’s Guidance Screen 
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The Artillery Wargame I 






Battalion Configuration / Status 

Number of firing units : 6 

Number of ammo trucks : 24 



I [choose Fl-Help F4-Prn Scrn ESC-Done 




Figure 5.7 Bn Configuration / Status Screen 
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The Artillery Wargame I 





Battalion Configuration / Status 
Firing unit data 



Unit name : A 

Number of guns : 8.0 

Location (node) : 458 

Max rounds capacity for firing unit ; 1000 

Rounds on hand for firing unit : 500 



Sustained rate of fire (rounds/tube/min) : 1.5 



Page Up- next unit Page Down-Prev Unit 
I I choose FI- Help F4-Prn Scrn ESC- Done 




Figure 5.8 Firing Unit Data Screen 
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Figure 5.9 Ammo Truck Data Screen 
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Figure 5.10 Gome Play Screen 
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DTG : 15 0600Z Jan 89 




Issue Commands 

Convoy Ammo Trucks 

New convoy name : AY1 

Enter bumper numbers for trucks in convoy : 
1 2 3 4 5 6 17 18 19 22 23 24 



I jchoose Fl-Help F2-Execute Cmd F4-Print 
ESC- Abort 




Figure 5.11 Creote Truck Convoy Screen 
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DTG : 15 0600Z Jan 89 




Issue Commands 

Remove Truck Convoy 

Convoy to be separated : AY1 



f , : 




•il’r 



I I Choose FI- Help F2- Execute Cmd F4- Print 
ESC- Abort 




Figure 5.12 Remove Truck Convoy Screen 
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DTG : 15 0600Z Jan 89 




Figure 5.13a Move a Unit Screen (PQit i) 
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DTG : 15 0600Z Jan 89 




Figure 5.13b Move a Unit Screen (Part 2) 
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Figure 5.14 Change Unit Firing Rote Screen 
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DTG : 15 0600Z Jan 89 




Issue Commands 

Ammunition Resupply 

Ammo truck bumper # or Convoy name ; AY1 
Unit or node to resupply : A 



I I Choose Fl-Help F2-Execute Cmd F4-Print 
ESC- Abort 




Figure 5.15 Ammo Resupply Mission Screen 
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DTG : 15 0600Z Jan 89 




Issue Commands 

Rre Unit Ammunition Pickup 

Fire Unit to Pickup Ammo ; A 
Location of Ammo : 458 



Choose Fl-Help F2-Execute Cmd F4-Print 
ESC- Abort 




Figure 5.16 Ammo Pickup Mission Screen 
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DTG : 15 0600Z Jan 89 





Issue Commands 

Ammunition Pickup 

Command number ; 1237 
Ammo truck or convoy to pickup ammo : 24 
Departure time : 15 0800Z Jan 89 

Pickup Location (ATP or node) ; ATP 



I [choose Fl-Help F2-Execute Cmd F4-Print 

ESC- Abort 




Figure 5.17 Ammo Truck / Convoy Pickup Screen 
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DTG : 15 0600Z Jan 89 



Issue Commands 

Fire Order 

Command number : 1238 
Unit to fire ; B 

Time to Fire : 15 0900Z Jan 89 

Number of volieys : 2 



I I Choose Fl-Help F2-Execute Cmd F4-Print 

ESC- Abort 




Figure 5.18 Fire Order Screen 
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Figure 5.19 Cancel Command Screen 
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STATISTICS / MOE DATA 



Total time firing sections were available (hrs) : 7589 
Max. possible available time : 9255 

Availabity Ratio : .82 

Total Time firing sections critically short amm o : 98.2 
Max possible critical short time : 9255 

Critically Short Ratio : 0.0106 

Total Time firing sections at critical vulnerability : 211 
Max possible critical vulnerability time : 9255 

Critical Vulnerability Ratio : 0.0227 

Total time lost due to truck casualties (hrs) : 985.2 
Max possible casualty time (hrs) : 9255 

Truck Casualty Ratio : 0.106 

Field Artillery Battalion Co mm and and Control 
Effectivenes Index : 0.687 

Number of rounds on hand at end of game in 
excess of battalion CSR : 852 





Figure 5.20 Statistics / MOE Printout 
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VI. SUGGESTED ENHANCEMENTS AND POTENTIAL USES 

A. INTRODUCTION 

The primary objective of this wargame has been achieved; 
to provide a tool for training officers in the integration 
of tactics and logistics as it relates to the command and 
control of a field artillery battalion. As with any 
undertaking of this kind, there is still plenty of room for 
improvements which would enhance the wargame 's effectiveness 
in training these officers. In spite of the need for 
improvement, the wargame, as it currently exists, is still 
very useful. 

B. POTENTIAL WARGAME USES 

It is very important to note, before discussing any of 
the wargame 's uses, that this game is not to be used as a 
tool to validate a unit's war plans. This point cannot be 
emphasized enough. The game, while it was intended to be as 
realistic as possible, does not claim to accurately model 
casualty rates. It is primarily for this reason that the 
wargame should not be used to validate a unit's war plans. 

It is possible, however, to use the wargame as a tool to 
develop familiarity with a unit's area of operations and its 
plans. By loading a unit movement network for a unit's area 
of operations, the unit's configuration into the battalion 
configuration file, the commander's guidance into the 
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commander's guidance file, and SOP / operations order items 
into the game parameter file, the players can exercise and 
become familiar with the unit's general defense plans. Pre- 
hostility deployment plans, to include occupation of 
assembly areas followed by occupation of initial positions 
and pickup and delivery of the unit's basic load of 
ammunition can easily be practiced. Just as easily, the 
unit's post hostility plans can also be practiced. This 
type of training, using the unit's actual wartime area of 
operations and battalion configuration, can pay great 
dividends if the plans are ever called upon to be used in 
time of war. 

One of the strengths of the wargame is the ability for 
the computer assisted portion of the game to be integrated 
into any level of CPX. For example, the game can be played 
as a part of a battalion's weekly officer professional 
development time, in conjunction with a battalion level CPX, 
or it can be integrated into a full scale, higher level, 
CPX. In every case, the utility of the game is that it 
allows the players to fully integrate tactical decisions 
with the logistics considerations. Additionally, it 
measures their performance using the Field Artillery 
Battalion Command and Control Effectiveness Index. By 
providing this feedback, the players can assess their 
decisions, and perhaps vary their method of command and 
control in order to maximize howitzer availability time. 
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minimize casualty time, vulnerability time, and time spent 
critically short of ammunition. 

Another training strategy is to play the game 
competitively. For example, at the division artillery 
level, the game's setup files can be established so that 
they are the same for each battalion. Then, each battalion 
can play the game for a specified period of game time. At 
the end of the game, the game's statistics are assessed to 
determine which battalion more effectively command and 
controlled the wargame's units. A similar technique can be 
used for training within a battalion by playing the game 
competitively between the battalion's day and night shift 
personnel . 

Finally, the game can be used by a battalion to study 
the effect on their tactics of increasing enemy lethality. 
By changing the value of "a" in the Lanchester equations 
found in the source code, the casualty rates can be changed. 
For each level of casualty rates, a set of tactics can be 
developed to more effectively command and control the 
battalion. The types of things which can be varied within 
the set of tactics include the size of ammunition convoys, 
the frequency and distance of moving firing units, the rate 
of firing for fire units, the use of point or unit 
distribution for ammunition resupply, the types of positions 
which are occupied (rural or urban) , and the positioning of 
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the field trains in relation to the fire units and the 
ammunition transfer point. 

C. IMPROVEMENTS / ENHANCEMENTS 

The wargame, as it currently exists, is fully 
functional. However, there are some areas which can be 
expanded in order to make the wargame more useful. The 
enhancements described in the following paragraphs are 
listed in order of priority from highest to lowest. 

1. Different Ammunition Types 

Currently, the wargame allows the players to manage 
ammunition of only one type. While there are many things 
that can be learned about the integration of tactics and 
logistics when only using one ammunition type, the issues 
become much more complex when the myriad of possible 
ammunition types are included in the game. It is not only a 
logistics management problem, but also it has a profound 
impact on tactical planning. 

In order to implement this enhancement, the fire 
unit, truck, and node records all will have to be modified 
to include each of the various ammunition types. 
Additionally, everywhere in the time step that ammunition is 
either transferred or expended, it must be done for each 
ammunition type. Finally, new criteria must be used to 
determine what constitutes low or critical ammunition 
levels . 
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2. Explicitly Play PLOT / Ranges 



Currently, there is no cartesian coordinate system 
implemented within the wargame. This would not be difficult 
to implement and would enable certain useful functions. For 
example, it would enable the howitzer's range to be played. 
Currently, it is up to the players to check the unit's range 
fan against the battlefield geometry to determine if the 
unit needs to move due to range considerations. If the 
cartesian coordinate system were implemented, this would 
enable the computer to also check the range. If the players 
failed to move the unit as the FLOT moved out of range, then 
the unit would no longer be considered available. Other 
functions would be enabled as well by implementing this 
enhancement, range checks could be made for fire missions, 
unit positions could be overrun by the FLOT, and 
prepositioned ammunition could also be overrun by the FLOT. 

In order to implement this enhancement, the node 
records need to be modified to include an X and Y coordinate 
for the UTM grid location of the node. Additionally, a 
record needs to be created for the coordinates of the FLOT, 
and procedures need to be written to calculate the distance 
between two points and to determine if a point lies above, 
below, left, or right of a line. 

3. Requests for Fires 

The way the wargame is now written, the players can 
fire a fire mission but the target is not explicitly named. 
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It is up to the players to ensure the target is within range 
before firing. Furthermore, the only impetus for firing 
comes from the players themselves, either to fire a fire 
plan directed by the operations order or to fire targets of 
opportunity generated by the players themselves. Since the 
players are assumed to be the battalion staff, the only 
types of fire missions which are played are battalion level 
missions or battery missions which are originated at the 
battalion level. All other firing is done by establishing a 
firing rate in terms of the CSR in order to expend the 
ammunition. 

The first problem can be resolved by implementing 
the cartesian coordinate system. The second problem can be 
resolved by randomly generating requests for fires on 
randomly generated coordinates located on the far side of 
the PLOT. This process can be written to simulate 
FIREFINDER radar output or target lists from the division 
artillery target intelligence files. In either case, it 
would be up to the players to decide which targets to 
engage, which fire units to use, and with which ammunition 
types . 

4. Play Fuel 

Fuel was not played in this version of the wargame 
because fuel is already played in real training through 
actual consumption. Nevertheless, fuel is a very important 
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consideration in the integration of tactics and logistics. 
As such, it should be added to the wargaine. 

In order to implement this improvement, a similar 
approach to the one used for the ammunition resupply can be 
used. Rather than rounds of ammunition, resupply will be in 
gallons of fuel. Rather than a firing rate, consumption 
will be in terms of a rate based upon the unit's posture, 
e.g. in position or moving. Like the ammunition trucks, 
fuel can be delivered by the combination of a movement 
command to the trucks or fire units and a resupply mission 
command. 

Implementation of this command will ensure that the 
players do not move the units so much that they run out of 
fuel . It also forces them to plan for fuel resupply using 
either unit or point distribution thereby integrating the 
requirement for fuel into the battalion's overall 
operational plan. 

5. Play Maintenance 

Like fuel, maintenance was not included in the first 
version of the wargame because it is regularly practiced in 
real training. It is, however, a real problem and therefore 
should be included in future versions of the game. 

It can be implemented by forcing a certain amount of 
"down" time or maintenance time for every kilometer traveled 
by the battalion's vehicles. This "down" time would then be 
subtracted from a fire unit's availability time. For 
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ammunition trucks the "down" time could be handled similarly 
to the way that crew rest requirements are currently 
handled. In short, the truck would not be available for 
ammunition resupply missions while in a "down" status. 

6. Network Utility 

The network utility was assigned the lowest priority 
because it provides a service which is normally done 
manually by the players and it may be construed as 
detracting from the player's training. The network utility 
is intended to determine the shortest route (time or 
distance) between two nodes in the unit movement network or 
determine the safest route in terms of vulnerability 
factors. It can be used as a staff planning aid in 
determining unit movement routes or it can be used to 
automate the movement orders by allowing the players to 
specify that a move between two nodes be done using the 
shortest or safest route. 

The node and path records needed for this 
enhancement are already in place. All that is needed are 
procedures containing the appropriate algorithms to 
implement the functions. 

D. FINAL COMMENTS 

At the very least, this wargame can serve as a working 
prototype for a wargame to train officers in the integration 
of tactics and logistics as related to the command and 
control of a field artillery battalion. The word "working" 
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is emphasized because this wargame, as currently 
implemented, is fully operational and is capable of use by 
units in the field. The wargame's greatest strengths are 
that is requires very little training on the use of the 
wargame itself, it can be played on an IBM compatible 
personal computer, it uses the Field Artillery Battalion 
Command and Control Effectiveness Index to provide feedback, 
and it forces the players to consider aspects of field 
artillery battalion command and control which are very 
difficult if not impossible to practice through actual 
training . 

Finally, it should be pointed out that this wargame was 
originally conceived to satisfy a perceived deficiency in 
training which is common to all units that require large 
quantities of bulk supplies, such as ammunition, to sustain 
them in combat. The point is that this wargame, with 
relatively minor changes, could be used for air defense 
artillery units, armor units, and infantry units. In short, 
the concept can be expanded into a whole class of wargames 
which can be used by battalion level officers for training 
in the integration of tactics and logistics. 
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APPENDIX 



DOCUMENTED SOURCE CODE 



{ 

Program name : WARGAME 

Purpose : this program is a computer assisted 
wargame designed to exercise the command and 
control functions in a field artillery 
battalion as they relate to the integration 
of tactics and logistics. 

Written by : Anthony R. Ferrara 

Michael W. Schneider 

Program completed : 23 March 1989 

Language used : Turbo Pascal 5.0 

System : IBM Personal System II Model 50 
running DOS 3.30 

Environment required : IBM compatible system 
with color monitor. 

Program structure : 

this program makes extensive use of the unit 
structure defined by Turbo pascal. All of 
the procedures, functions, and variables of 
the program are contained in the units that 
are part of this program. 

Units : 

GLOBAL - this unit contains the declarations 
for all of the files, records and variables 
used for the game itself. 

GAME - this is the unit responsible for the 
overall control of the game: its 
initialization, modification of parameters, 
execution of the game, and issuing of 
commands . 

INIT - contains the procedures that initial- 
ize the game and allow the user to change 
any of the games parameters. 

SCENARIO - contains the procedures that 

initialize, modify, and create the scenario 
for the game. 

TIMESTEP - this unit contains the procedures 
that comprise the "heart" of the game, it 
actually executes each time step and 
processes the event records for the game. 

COMMANDS - this unit contains the procedures 
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that allow the user to issue commands that 
allow the command and control of an 
artillery battalion to take place. 

GAMEUTIL - this unit contains a number of 
general purpose utility procedures and 
functions that are used by more than one 
unit and are specific to the game. 

UTILITY - this unit contains a library of 
general purpose procedures that are 
specifically for the generation of the user 
interface, both input and output. 

TACCESS - this a Borland written unit that 
contains a number of low level procedures 
that provide database related functions 
used throughout the game. 

TAHIGH - this a Borland written unit that 
contains a number of high level procedures 
that provide database related functions 
used throughout the game. 

} 

(************************************************J 

program wargame; 

{$m 65520,0,655360) 

uses crt, utility, game; 

var choice : integer; 

begin 

initialize_screen ; 
remove_cursor ; 
repeat 

center_text (1, 'The Artillery Wargame !', blue); 
choice := menu_selection ( 'Main Menu', 

'Start a new game | Continue 

old game|Quit\' ); 
case choice of 

1 : play_new_game; 

2 : play_old_game 
end 

until choice = 3 ; 
restore_cursor ; 
initial ize_screen 
end. 



an 
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(************************************************) 

{ 

Unit name : GLOBAL 

Purpose : this unit contains all of the declara- 
tions necessary for the game itself. It con- 
tains declarations for all of the files used 
to save the game variables from game to game 
on disk. It also contains default values for 
records wherever they were possible. The 
specific purpose of each variable is clearly 
indicated by its name. 

} 

(************************************************) 
unit global; 



interface 



uses dos, utility, taccess, tahigh; 



const 

scenario_f ile_header = 'This 
file ! ' ; 

max_f iring_units = 6; 
max_ammo_trucks = 24; 
trains_f ilename = 

f iring_unit_f ilename = 

ammo_truck_f ilename = 

cdrs_guidance_f ilename = 

game_parameter_f ilename = 

node_data_f ilename_ext = 

path_data_f ilename_ext = 

node_index_f ilename_ext = 

path_index_f ilename_ext = 

event_data_f ilename = 

event_time_index_f ilename = 

event_serial_index_f ilename = 

message_data_f ilename = 

message_type_index_f ilename = 



is a valid wargame scenario 



'trains.dat' ; 

' f ireunit . dat ' ; 
' ammotrck . dat ' ; 
' cdrguide . dat ' ; 
’ gamparam . dat ' ; 
' . scl ' ; 

' . sc2 ' ; 

' . sc3 ' ; 

' . sc4 ' ; 

' evnt$lst . dat ' ; 
'evnt$lst . ixl ' ; 
'evnt$lst . ix2 ' ; 
'msg$list.dat' ; 
'msg$list . idx' ; 



{$I global. typ} 
type 

f iring_unit_record = record 
record_status 
f ir ing_unit_name 
number_o f_guns 
location 

section_max_rounds_capacity 

rounds_on_hand 

sustained rate of fire 



longint ; 
Strings ; 
integer ; 
stringlO ; 
integer ; 
integer ; 
integer; 
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tiine_in_position 

rounds_f ired_from_position 

vulnerabil ity_status 

firing_status 

aimo_status 

support_mi ss i on 

rate_percent_csr 

ammo_p i ckup_ni i s s i o n 

aniino_pickup_location 

traverse_minef ield 

minef ield_location 

pending_movement 

airuno_low 

ammo_critical 

ainino_out 

vulnerability_high 

vulnerabil ity_cr it ical 

sect ions_in_operating_condit ion 

total_availability_time 

critically_short_tiine 

critically_vulnerable_tinie 

end ; 

amino_truck_record = record 
record_status 
bump e r_numbe r 
location 
load_status 
ammo_capacity 
convoy_name 
mission_assigned 
moving 

f iring_unit_to_resupply 
node_to_resupply 
vulnerabil ity_status 
amount_of_rest 
time_since_rest_began 
traverse_minef ield 
minef ield_locat ion 
pending_movement 
ef fective_percent 
killed 

casualty_time 
end ; 

battalion_trains_record = record 
r e c o rd_s t a tu s 
location 
moving 

pending_movement 
time_in_position 
vulnerabil ity_status 
vulnerabil ity_high 



longint ; 
integer; 
char; 
char; 
char ; 
Strings ; 
real ; 
boolean ; 
stringlO 
boolean; 
StringlO 
boolean ; 
boolean ; 
boolean ; 
boolean; 
boolean ; 
boolean; 
real ; 
longint ; 
longint ; 
longint 



longint; 
strings ; 
StringlO ; 
char; 
integer ; 
Strings ; 
char; 
boolean; 
Strings ; 
Strings ; 
char ; 
longint; 
longint ; 
boolean; 
StringlO i 
boolean; 
real ; 
boolean ; 
longint 



longint ; 
stringlO ; 
boolean ; 
boolean ; 
longint ; 
char; 
boolean ; 
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vulnerability_critical : boolean 
end; 

cdr_guidance_record = record 



record_status 


: longint; 


unit_sitrep_frequency 


: integer; 


vulnerability_threshold_time 


: real; 


vulnerability_threshold_rounds ; 


: integer; 


crew_rest_per_day 


: real ; 


bn_csr 


: integer; 


burnt 


: Strings ; 


eent 


: Strings; 


maneuver_inission 


: char ; 


axis 


: integer 


end ; 





game_parain_record = record 

record_status : longint; 

time_step_size : integer; 

avg_track_convoy_speed : integer; 
avg_wheel_convoy_speed : integer; 
avg_time_trains_to_atp : integer 
end; 

scenario info record = record 



longint ; 
stringlO ; 
stringlS ; 
stringSO ; 
stringlS ; 
array [ 1 . ,10] 



record_status 
opord_nuinber 
opord_date 
map_sheets 
start_dtg 
admin_notes 
end ; 

node_record = record 
record_status 
node_name 
paths 
grid 

position_type 
cover_concealment 
ammo_count 
end; 

path_record = record 
record_status 
path_name 
start_node 
end_node 
length 

road_condition 
bridge 
bridge_grid 
vulnerability 
end ; 

event_record = record 

record_status : longint; 



of stringSO 



longint; 
strings ; 
array [1. .6] 
stringlO ; 
char ; 
char; 
integer 



longint; 
strings ; 
strings ; 
Strings ; 
real ; 
char ; 
char ; 
StringlO ; 
char 



of Strings; 
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event_type : char; 
serial_number : integer; 
time_key : stringlO; 

unit_type : char; 

unit_name : strings; 

volleys : integer; 

grid : stringlO; 

node : strings; 

path : Strings 

end; 

message_record = record 

record_status : longint; 
message_type ; char; 
unit_type : char; 

unit_name : strings; 

location : stringlO; 

ammo_status : char; 
vulnerability : char 
end ; } 

stat record = record 



availability 


real ; 


max_availability 


real ; 


availability_ratio 


real ; 


ammo_short_time 


real ; 


max_ammo_short_time 


real ; 


ammo_short_time_ratio 


real ; 


vulnerability 


real ; 


max_vulnerability 


real ; 


vulnerability_ratio 


real ; 


truck_casualties 


real ; 


max_truck_casualties 


real ; 


truck_casualties_ratio 


real ; 


moe 


real ; 


rounds_on_hand 


integer ; 


total_guns_at_start 


integer 


end ; 





f ir ing_unit_array 
f iring_unit_record ; 
ainino_truck_array 
ammo truck record; 



array [ 1 . . max_f ir ing_units ] 

array [ 1 . .max_ammo_trucks] 



of 

of 



var 

game_stats : stat_record; 
scenario_f ile_name : stringSO; 
scenario_f ile : text; 

node_data_f ilename : stringSO; 
path_data_f ilename : stringSO; 
node_index_f ilename : stringSO; 
path_index_f ilename : stringSO; 

trains_file : file of battalion_trains_record ; 
f ireunit_f ile : file of f iring_unit_record ; 
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airunotrck_f ile : file of 
cdrguide_f ile : file of 
gamparam_f ile : file of 

number_of_f iring_units 

number_of_amitio_trucks 

f iring_units 

aimno_trucks 

battalion_t rains 

coimanders_guidance 

game_parameters 

scenario_info 

nodes 

paths 

event_list 

time_index 

serial_number_index 

messages 

message_type_index 



ammo_truck_record ; 
cdr_guidance_record ; 
game_param_record ; 

integer; 

integer; 

f i r ing_un i t_a r r ay ; 

ammo_truck_array ; 

battalion_trains_record ; 

cdr_guidance_record ; 

game_param_record ; 

scenario_info_record ; 

dataset; 

dataset; 

datafile; 

indexf ile; 

indexfile; 

datafile; 

indexfile ; 



game_start_time : datetime; 
game_start_dtg : stringlS; 
game_time : datetime; 
game_dtg : stringlS; 
total_game_time : longint; 
new_day ; boolean; 
day_time : boolean; 
time_since_last_sitrep : integer; 
atp_rounds_on_hand : integer; 
hostilities_started ; boolean; 
command_serial_number : integer; 



const 

default_f iring_unit_data : f iring_unit_record 



= ( record_status : 0; 

f iring_unit_name 
null_string; 

number_of_guns : 8; 

location : '1'; 

section_max_rounds_capacity ; 250; 

rounds_on_hand : 500; 

sustained_rate_of_f ire : 1; 

time_in_position : 0; 

rounds_f ired_f rom_position : 0; 

vulnerability_status : 'A ' ; 

f iring_status : 'H' ; 

ammo_status : 'S'; 

support_mission : 'DS'; 

rate_percent_csr ; 1.0; 

ammo_pickup_mission : false 
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aimno_p i ckup_l oc a t i on 
null_string; 

traverse_minef ield 
minef ield_location 
null_string; 

pending_movement 
amino_low 
ammo_c r i t i c a 1 
ainino_out 

vulnerability _high 

vulnerability_critical 

sect ions_in_operating_condit ion 

total_availability_time 

critically_short_time 

critically_vulnerable_time 



) 



ammo 



default_ammo_truck_data 
= ( record_status 
bumper_number 
location 
load_status 
ammo_capac ity 
convoy_name 
mission_assigned 
moving 

f iring_unit_to_resupply 

node_to_resupply 

vulnerability_status 

amount_of_rest 

t ime_s ince_rest_began 

traverse_minef ield 

minef ield_locat ion 

pending_movement 

ef fective_percent 

killed 

casualty_time 



false 



false 

false 

false 

false 

false 

false 

8 . 0 ; 

0 ; 

0 ; 

0 



truck_record 

0 ; 

null_string ; 

'F' ; 

300 ; 

null_string ; 
'N' ; 
false ; 

null_string ; 
null_string ; 
'A' ; 

0 ; 

0 ; 

false ; 

null_string; 
false ; 

1 . 0 ; 
false ; 

0 



) 



default_battalion_trains 
= ( record_status 
location 
moving 

pending_movement 
time_in_position 
vulnerability_status 
vulnerability_high 
vulnerability_critical 
) ; 

default_commanders_guidance ; 
= ( record_status 

unit_sitrep_f requency 



battalion 
0 ; 



trains record 



false ; 
false ; 
0 ; 

'A' ; 
false ; 
false 



cdr_guidance_record 
: 0 ; 

: 60 ; 



vulnerability_threshold_time 



6 . 5 ; 
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vulnerability_threshold_rounds 

crew_rest_per_day 

bn_csr 

bmnt 

eent 

maneuver_inission 

axis 



200 ; 

6.5; 

100 ; 

'0545Z' ; 
' 1820Z' ; 
'O' ; 

090 



) ; 



default_game_parameters ; gaTne_param_record 



= ( record_status : 0 ; 

time_step_size : 30; 

avg_track_convoy_speed : 20; 

avg_wheel_convoy_speed : 35; 

avg_time_trains_to_atp ; 180 



) ; 

default_scenario_info 
= ( record_status 
opord_number 
opord_date 
map_sheets 
start_dtg 
admin_notes 

) ; 



scenario_inf o_record 
0 ; 

' 0001 ' ; 

/ / • 

9 

'None applicable'; 
'15 0600Z NOV 88' ; 

// t f / / / / / 
\ t t t 

/ / / t t ’ f t / 



default_node : node_record 
= ( record_status : 

node_name : 

paths 

null_string , 

null_string) ; 

grid : 

posit ion_type 
cover_concealinent : 
ammo count : 



0 ; 

null_string ; 

: (null_string , 

null_string, 

null_string ; 

'R' ; 

'M' ; 

0 



/ 

/ 



/ 

/ 

') 



null_string, 

null_string, 



! 



) ; 



default_path : path_record 



= ( record_status 
path_name 
start_node 
end_node 
length 

road_condition 

bridge 

bridge_grid 

vulnerability 



0 ; 

null_string ; 
null_string ; 
null_string ; 
0 ; 

'M' ; 

'N' ; 

null_string ; 
'M' 



) ; 

default_scenario_f ile_name 
new$scen . sen' ; 

default_number_of_f iring_units : integer 
default_number_of_ammo_trucks ; integer 



stringSO = 



6 ; 
24 ; 
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implementation 



begin 

end. 
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(★★★★★*******************************************J 

{ 

Unit name : GAME 

Purpose ; this unit contains the procedures that 
actually comprise the heart of the wargame. 

It is responsible for initializing either a 
new or old game, running the game, and taking 
care of the functions necessary when quitting. 

As part of the game itself it also controls 
execution of the time step, the issuing of 
commands, and the changing of allowable game 
parameters for the execution of the game. 

This unit can be thought of as having four 
subordinate units that contains the procedures 
that carry out its functions. These are INIT, 
SCENARIO, TIMESTEP, and COMMANDS. 

} 

(************************************************) 
unit game ; 

interface 

{$!-} 

uses crt, printer, utility, gameutil, global, init, 
scenario, timestep, commands, taccess, tahigh; 

procedure play_new_game ; 
procedure play_old_game ; 

implementation 

^************************************************) 

{ 

Procedure name : PLAY_WARGAME 

Purpose : this procedure controls the play of 
wargame once it has been initialized as 
either a new or old game, as appropriate. 

It displays the game screen, and provides the 
game menu. It relies on four units: INIT, 
SCENARIO, TIMESTEP, and COMMANDS. These are 
called as is necessary to handle the selection 
made from the game menu by the player. 

Parameters : none. 



Called by : PLAY_NEW_GAME 
PLAY OLD GAME 



) 

procedure play_wargame ; 
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var 



choice : integer; 

{ 

Procedure name : DISPLAY_GAME_MAIN_SCREEN 

Purpose : this procedure displays the current 
game time in large block letters at the top 
of the screen and the current dtg in normal 
size characters on the top line of the screen. 

Parameters : none. 



Called by : PLAY_WARGAME 

EXECUTE NEXT TIME STEP 



} 

(************************************************) 
procedure display_game_main_screen ; 



var 

dtg : stringl5; 
begin 

initialize_screen; 

dtg := remove_blanks (game_dtg) ; 

put_font_string (17, 3, copy (dtg, 3, 4) + blank 

(dtg, 7, 1), cyan) ; 

center_text (1, 'DTG : '+ game_dtg, yellow) 

end ; 

procedure execute_next_time_step ; 
begin 

inc_time (game_time, game_parameters . time_step_size) ; 
datetime_to_dtg (game_time, game_dtg) ; 
total_game_t ime := total_game_time 

game_parameters . time_step_size ; 

new_day := ( (game_t ime. hour * 60) + game_time.min) < 
game_parameters . time_step_size ; 
determine_day_or_night ; 
display_game_main_screen ; 
process_events_l ist ; 
stock_atp ; 

process_f ield_trains ; 
process_ammo_trucks ; 
process_f ire_units ; 
gener at e_mes sages 
end ; 



copy 



+ 
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{ 

Procedure name : ISSUE_COMMAND 

Purpose : this procedure presents the command 
menu to the player. It is responsible for 
calling the appropriate procedure to handle 
the command selected by the user. 

Parameters : none. 



Called by : PLAY_WARGAME 



) 

procedure issue_command; 



begin 

clear_area (1,2,80,25); 

draw_window (1,2,80,23, menu_f orecolor , menu_backcolor , 

'Issue Commands'); 

repeat 

menu_xl ;= 12; menu_yl ;= 5; 
menu_x2 := 68; menu_y2 ;= 19; 

choice := menu_selection (null_string , 'Create truck 
convoy | '+ 

'Remove truck 

convoy | '+ 

'Move a unit | '+ 
'Request sitrep| '+ 



rate | ' + 
order | '+ 

mission | '+ 
mission [ '+ 
pickup I ' + 
pickup I ' + 
pickup I ' + 

GAME\' ) ; 

menu_xl := menu_xl_default ; 
menu_x2 := menu_x2_default ; 
case choice of 



' Change 


firing 


' Issue 




fire 


' Cancel 


command | '+ 


'Ammo 


resupply 


' Cancel 


resupply 


' Fire 


unit 


ammo 


'Cancel 


fire 


unit 


'Ammo truck 


ammo 


'RETURN 




TO 



menu_yl := menu_yl_default ; 
menu_y2 := menu_y2_default ; 
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1 : create_truck_convoy ; 

2 : remove_truck_convoy ; 

3 : inove_unit; 

4 : display_sitrep; 

5 : change_f iring_rate; 

6 ; issue_f ire_order ; 

7 : cancel_conunand; 

8 ; aniino_resupply_mission; 

9 : cancel_resupply_mission; 

10 : f ire_unit_ammo_pickup; 

11 : cancel_fire_unit_pickup; 

12 : amino_truck_amino_pickup 

end 

until choice = 13 ; 

initialize_screen 

end; 

(**★★★******★*★**************★★★******★***★*****★) 

{ 

Procedure name : CHANGE_PARAMETERS 

Purpose : this procedure presents the menu for 
allowing the player to change the commander's 
guidance, the game parameters, modify the 
network, or access the network utility. 

Parameters : none. 



Called by : PLAY_WARGAME 



} 

procedure change_parameters ; 



var 

choice ; integer; 
begin 

clear_area (1,2,80,25); 
repeat 

choice := menu_selection ('Scenario / Parameter Menu', 

'View or change scenario / 

network] '+ 

'View or change game 

parameters | '+ 

'View or change commander' 's 

guidance j ' + 

'Return to game\'); 

case choice of 

1 : view_scenario ; 

2 : view_game_parameters ; 

3 : view_commanders_guidance 
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end 

until choice = 4; 
initial ize_screen 
end; 



{ 

Procedure name : QUIT_GAME 

Purpose : this procedure handles the actions 
neccessary for guiting the game. It presents 
the player with the option to save the game in 
progress or abandon it. It then calculates 
and outputs the statistics for the game. 



Parameters : none. 

Called by : PLAY_WARGAME 

} 

procedure quit_game; 
var 



choice : integer; 



{ 

Procedure name : SAVE_GAME 

Purpose : this procedure saves the current game 
so that it can be continued at a later time. 
It saves all variables in files on disk so 
that can be retrieved by INITIALIZE_OLD_GAME . 

Parameters : none. 



Called by : QUIT_GAME 



) 

(************************************************) 
procedure save_game ; 



begin 
end ; 



{ 

Procedure name : OUTPUT_STATISTICS 

Purpose : this procedure calculates and prints 
on a printer the statistics for the play of 
the game. 
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Parameters : none. 



Called by : QUIT_GAME 

} 

(************************************************) 
procedure output_statistics ; 

(************************************************) 

{ 

Procedure name : CALCULATE_STATS 

Purpose : this procedure calculates the 
statistics for the game. 

Parameters : none. 



Called by : OUTPUT_STATISTICS 

(************************************************ 
procedure calculate_stats ; 



) 

) 



var 

i : integer; 

temp_node : node_record; 
node_name ; stringlO; 

begin 

with game_stats do 
begin 

availability := 0.0; 
ammo_short_time := 0.0; 
vulnerability := 0.0; 
rounds_on_hand : = 0 ; 
total_guns_at_start := 0; 
for i := 1 to number_of_f iring_units do 
begin 

availability := availability + 

(f iring_units [ i ] . total_availability_time / 60); 
ammo_short_time ;= ammo_short_time + 

(f iring_units [ i ] . critically_short_time / 60); 
vulnerability ;= vulnerability + 

(f iring_units [ i ] . critically_vulnerable_time / 60); 
rounds_on_hand := rounds_on_hand + 
f iring_units [ i ] . rounds_on_hand ; 
total_guns_at_start ;= total_guns_at_start + 
f iring_units [ i ] . number_of_guns 
end ; 

max_availability ;= total_game_time * total_guns_at_start 
/ 60; 

availability_ratio := availability / max_availability ; 
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max_anuno_short_tiine := total_game_time * 

total_guns_at_start / 60; 

aramo_short_time_ratio ;= amino_short_tiine / 

max_ainino_short_tiine ; 

max_vulnerability := total_game_time * 

total_guns_at_start / 60; 

vulnerability_ratio ;= vulnerability / max_vulnerability ; 

truck_casualties := 0.0; 
for i := 1 to number_of_ajnino_t rucks do 
begin 

truck_casualties := truck_casualties + 

(ammo_trucks [i] . casualty_time / 60); 
if amino_trucks [ i ] . load_status = 'F' then 
rounds_on_hand ;= rounds_on_hand + 

round (ainino_trucks[i] .amino_capacity * 

ammo_trucks [ i 3 . ef fective_percent) 

end ; 

max_truck_casualties := total_game_time * 

nuitiber_of_amino_trucks / 60; 

truck_casualties_ratio ;= truck_casualties / 

max_truck_casualties ; 

moe := availability_ratio - aramo_short_time_ratio - 
vulnerability_ratio - truck_casualties_ratio; 
tareset (nodes) ; 

tanext (nodes, temp_node, node_name) ; 
while ok do 
begin 

rounds_on_hand := rounds_on_hand + 

temp_node . aramo_count ; 

tanext (nodes, temp_node, node_name) 
end ; 

rounds_on_hand := rounds_on_hand 

cominanders_guidance .bn_csr ; 
if rounds_on_hand < 0 then 
rounds_on_hand := 0 

end 
end ; 

{ 

Procedure name : PRINT_STATS 

Purpose : this procedure prints the statistics 
for the game on the printer. 

Parameters : none. 



Called by ; OUTPUT_STATISTICS 



( 



************************************************ 



} 

) 
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procedure print_stats; 

const 

ff = #12; 



ff) 



begin 

with game_stats do 
begin 

(1st, 

(1st) 

(1st) 

(1st) 

(1st) 

(1st) 

(1st) 

(1st, 

(1st, 

(1st, 

(1st, 

(1st) ; 

(1st, 

: '); 

(1st, availability ; 4 : 2 ) ; 

(1st, 'Maximum possible availability time 



writeln 

writeln 

writeln 

writeln 

writeln 

writeln 

writeln 

write 

writeln 

write 

writeln 

writeln 

write 

(hours) 

writeln 

write 



'Game start time 
game_start_dtg) ; 
'Game end time 
game_dtg) ; 



'Total time firing sections were available 



(hours) 



') 



were critically 



writeln (1st, max_availability : 4 : 2) ; 
write (1st, 'Availability ratio (maximize) 
writeln (1st, availability_ratio: 4 : 2) ; 
writeln (1st); 

write (1st, 'Total time firing sections 
short ammo (hours) : '); 

writeln (1st, ammo_short_time : 4 ; 2 ) ; 

write (1st, 'Maximum possible critically_short_time 

(hours) : '); 

writeln (1st, max_ammo_short_time : 4 : 2) ; 

write (1st, 'Critically short ratio (minimize) : '); 

writeln (1st, ammo_short_time_ratio: 4 : 2) ; 

writeln (1st) ; 

write (1st, 'Total time firing sections were critically 

vulnerable (hours) ; '); 

writeln (1st, vulnerability: 4;2) ; 

write (1st, 'Maximum possible critically vulnerable time 
(hours) : '); 

writeln (1st, max_vulnerability : 4 : 2 ) ; 

write (1st, 'Critically vulnerable ratio (minimize) : '); 

writeln (1st, vulnerability_ratio: 4 : 2) ; 
writeln (1st) ; 

write (1st, 'Total time lost due to truck casualties 

(hours) : '); 

writeln (1st, truck_casualties : 4 : 2 ) ; 

write (1st, 'Maximum possible casualty time (hours) : '); 
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writeln (1st, max_truck_casualties: 4 : 2) ; 

write (1st, 'Truck casualty time ratio (minimize) : ' ) ; 
writeln (1st, truck_casualties_ratio: 4 : 2) ; 
writeln (1st) ; 

writeln (1st, 'MOE (availability ratio - critically short 
ratio -' ) ; 

write (1st, ' vulnerability ratio - casualty ratio) 

• ) • 

writeln (1st, moe:4:2); 
writeln (1st) ; 

write (1st, 'Number of rounds on hand in excess of CSR 

(minimize) : ' ) ; 

writeln (1st, rounds_on_hand) ; 

writeln (1st, ff) 

end 

end; 

begin 

if not printer_ready then 
begin 

save_screen ; 

draw_window (21,12,60,15, yellow, red, null_string) ; 

centertext (13, 'Printer not ready', yellow); 

center_text (14, 'press any key', white); 

key : = get_key ; 

key := null; 

restore_screen 

end ; 

if total_game_time > 0 then 
begin 

calculate_stats ; 
if printer_ready then 
print_stats 

end 
end ; 

begin 

choice := menu_selection ('Quit Game', 'Save game in 
progress I Abandon game\'); 
if choice = 1 then 
save_game ; 
close_all_f iles ; 
output_stati sties 
end ; 

begin 

initialize_screen; 

repeat 

display_game_main_screen; 
if not hostilities_started then 
check for start of hostilities; 
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menu_xl := 1; 
menu_yl := 11? 
menu_x2 := 23; 
menu_y2 := 23; 

choice := menu_selection ('Game Menu', 'Next time step|'+ 

'Issue command I ' + 

' Change 

parameters | '+ 

' Network 

utility I ' + 

'Quit game\' ) ; 

menu_xl := menu_xl_de fault ; 
menu_yl := menu_y l_de fault ; 
menu_x2 := menu_x2_default ; 
menu_y2 := menu_y2_de fault ; 
case choice of 

1 ; execute_next_time_step ; 

2 : issue_command; 

3 ; change_parameters ; 

4 : network_utility 

end 

until choice = 5? 
initialize_screen ? 
quit_game 
end; 

(************************************************) 

{ 

Procedure name ; PLAY_NEW_GAME 

Purpose : this procedure initializes and plays 
a new game . 

Parameters : none. 



Called by : WARGAME 



} 

procedure play_new_game ; 



begin 

if initial ize_new_game then 
play_wargame 
end ; 



(************************************************) 

{ 

Procedure name : PLAY_OLD_GAME 

Purpose : this procedure initializes and plays 
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an old game. 
Parameters : none. 



Called by : WARGAME 



) 

(************************************************) 
procedure play_old_game; 



begin 

if initial ize_old_game then 
play_wargame 
end ; 



begin 
end . 
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^***********^************************************J 

{ 

Unit name ; INIT 

Purpose : this unit contains the procedures that 
initialize all of the variables and files for 
both a new game or an old game to be continued 
if desired. It also contains the procedures 
that allow the user to create or modify his 
battalion for the game. This includes the 
trains, fire units, and ammo trucks. The 
player can also modify the game parameters and 
commanders guidance with procedures in this 
unit. It calls procedures in unit SCENARIO 
to also allow the user to create and modify a 
scenario complete with nodes and paths. 

) 

(*************************************★**********) 
unit init; 

interface 

{$!-) 

uses dos, crt, utility, gameutil, global, scenario, taccess, 
tahigh; 

procedure view_game_parameters ; 
procedure view_commanders_guidance ; 
procedure view_battalion_conf iguration ; 
function initialize_new_game : boolean; 
function initial ize_old_game ; boolean; 

implementation 

var 

f iring_unit_number : integer; 
ammo_truck_number : integer; 

{ 

Procedure name ; UNIQUE_FIRING_UNIT_NAME 

Purpose : this procedure insures that a firing 
unit that is being created or modified is 
assigned a unique name. It checks the 
names of the other firing units, the ammo 
trucks, and the trains. 

Parameters : STRING_VALUE - name to be checked 
Called by : passed as a parameter to 
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EDIT_SCREEN by UPDATE_FIRING_UNIT_DATA 

} 

(************************************************) 

{$F+) 

function unique_f iring_unit_name (string_value : stringSO) 
boolean; 



var 

unique_name : boolean; 
unit_nuinber : integer; 

begin 

unique_name := true; 
if string_value <> null_string then 
begin 

for unit_nuniber := 1 to nuinber_of_f iring_units do 
if (string_value = 

f iring_units [unit_number] . f iring_unit_name) and 

(unit_number <> f iring_unit_number) then 
unigue_name := false; 
if unique_name then 

unigue_name := ( truck_number (string_value) = 0) and 

(string_value <> 'TRAIN') 

end 

else 

unique_naTne := false; 
if not unique_name then 

display_error_message ('INPUT ERROR', null_string, 
null_string, 

'unit must have a unique name', 

null_string) ; 

unique_f iring_unit_name := unique_name 
end ; 

{$F-} 

(************************************************) 

{ 

Procedure name ; UNIQUE_BUMPER_NUMBER 

Purpose : this procedure insures that an ammo 
truck that is being created or modified is 
assigned a unique bumper number. It checks 
the bumper numbers of the other trucks, the 
names of the firing units, and the trains. 

Parameters : STRING_VALUE - bumper number to be 
checked . 



Called by : passed as a parameter to 
EDIT_SCREEN by UPDATE_AMMO_TRUCK_DATA 



} 
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(************************************************) 

{$F+} 

function unique_buinper_n umber (string_value : stringSO) : 
boolean ; 



var 

unique_name : boolean; 
truck_number : integer; 

begin 

unique_name := true; 
if string_value <> null_string then 
begin 

for truck_number := 1 to number_of_ammo_t rucks do 
if (string_value = 

ammo_trucks [ truck_number] .bumper_number) and 

(truck_number <> ammo_truck_number) then 
unigue_name ;= false; 
if unique_name then 

unique_name := (unit_number (string_value) = 0) and 

(string_value <> 'TRAIN') 

end 

else 

unique_name := false; 
if not unique_name then 

display_error_message ('INPUT ERROR', null_string, 
null_string, 

'truck must have a unique name', 

null_string) ; 

unique_bumper_number := unique_name 
end ; 

($F-) 



(************************************************) 

{ 

Procedure name : SAVE_GAME_PARAMETERS_TO_DISK 

Purpose : this procedure saves the game 

parameter to disk so that it can be used in 
successive games to be played by the user 
to save him the trouble of having to tailor 
it each time. 



Parameters : none. 



Called by : VIEW_GAME_PARAMTERS 
READY TO PLAY 



) 

(************************************************) 
procedure save_game_parameters_to_disk ; 
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begin 

save_screen; 

draw_window (27,11,54,15, yellow, red, null_string) 
shade_window (27,11,54,15, black); 
center_text (13, 'updating files...', yellow); 
assign (gamparam_f ile , game_parameter_f ilename) ; 
rewrite (gamparaTn_f ile) ; 
if ioresult = 0 then 

write (gamparam_file, game_parameters) ; 
close (gamparam_f ile) ; 
restore_screen 
end ; 

(^*******ifk**ifk**** *******************************') 

{ 

Procedure name ; SAVE_COMMANDERS_GUIDANCE_TO_DISK 

Purpose ; this procedure saves the commander's 
guidance to disk so that it can be used in 
successive games to be played by the user 
to save him the trouble of having to tailor 
it each time. 



Parameters : none. 



Called by : VIEW_COMMANDERS_GUIDANCE 
READY TO PLAY 



} 

(************************************************) 
procedure save_commanders_guidance_to_disk; 



begin 

save_screen; 

draw_window (27,11,54,15, yellow, red, null_string) 
shade_window (27,11,54,15, black); 
center_text (13, 'updating files...', yellow); 
assign (cdrguide_f ile, cdrs_guidance_f ilename) ; 
rewrite (cdrguide_f ile) ; 
if ioresult = 0 then 

write (cdrguide_f ile, commanders_guidance) ; 
close (cdrguide_f ile) ; 
restore_screen 
end; 



(************************************************) 

{ 

Procedure name : SAVE_UNIT_DATA_TO_DISK 

Purpose : this procedure saves the unit data 
to disk so that it can be used in 
successive games to be played by the user 



150 



to save him the trouble of having to tailor 
it each time. It saves the firing unit data, 
ammo truck data, and battalion trains data. 

Parameters : none. 



Called by : VIEW_BATTALION_CONFIGURATION 
READY TO PLAY 



} 

^ ************************************************) 
procedure save_unit_data_to_disk; 



begin 

save_screen ; 

draw_window (27,11,54,15, yellow, red, null_string) ; 
shade_window (27,11,54,15, black); 
center_text (13, 'updating files...', yellow); 
assign (trains_file, trains_f ilename) ; 
rewrite ( trains_f ile) ; 
if ioresult = 0 then 

write (trains_f ile, battalion_trains) ; 
close (trains_f ile) ; 

assign (f ireunit_file, firing_unit_f ilename) ; 
rewrite ( f ireunit_f ile) ; 
if ioresult = 0 then 

for f iring_unit_number := 1 to number_of_f iring_units do 
write (f ireunit_file, 
f iring_units [ f iring_unit_number ] ) ; 
close ( f ireunit_f ile) ; 

assign (ammotrck_f ile, ammo_truck_f ilename) ; 
rewrite (ammotrck_f ile) ; 
if ioresult = 0 then 

for ammo_truck_number ;= 1 to number_of_ammo_trucks do 
write (ammotrck_file, ammo_trucks [ammo_truck_number] ) 

close (ammotrck_f ile) ; 

restore_screen 

end; 



{ 

Procedure name : VIEW_GAME_PARAMETERS 

Purpose : this procedure allows the player to 
view, change, or print the game parameters for 
the game. 

Parameters ; none. 



Called by : INITIALIZE_NEW_GAME 
CHANGE PARAMETERS 
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} 

^************************************************J 

procedure view_game_parameters ; 

^************************************************J 

{ 

Procedure name : SET_UP_FIELDS 

Purpose ; this procedure initializes the data 
that describes the fields for displaying the 
battalion configuration data. 

Parameters : none. 



Called by : VIEW_GAME_PARAMETERS 



) 

(************************************************) 
procedure set_up_f ields ; 



begin 

number_of_f ields := 4; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Time step (minutes) 
label_x := 15; label_y := 10; 
int_value := game_parameters . time_step_size ; 
str (int_value, str_val) ; 

xl := 63; yl := 10; x2 := 67; y2 := 10; 
field_type := int; int_min_value := 1; int_max_value 
maxint 
end ; 

with f ield_l ist [ 2 ] do 
begin 

label_string := 'Average track convoy speed (kph) ;'; 
label_x ;= 15; label_y := 12; 

int_value := game_parameters . avg_track_convoy_speed ; 
str (int_value, str_val) ; 

xl := 63; yl ;= 12; x2 := 65; y2 := 12; 
field_type ;= int; int_min_value ;= 1; int_max_value 

120 

end ; 

with field_list[3] do 
begin 

label_string := 'Average wheel convoy speed (kph) :'; 
label_x := 15; label_y := 14; 

int_value ;= game_parameters . avg_wheel_convoy_speed ; 
str (int_value, str_val); 

xl := 63; yl := 14; x2 := 65; y2 := 14; 
field_type ;= int; int_min_value := 1; int_max_value 

120 

end ; 
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with field_list[4] do 
begin 

label_string := 'Average time from trains to ATP 
(minutes) : ' ; 

label_x := 15; label_y := 16; 

int_value := game_parameters . avg_time_trains_to_atp; 
str (int_value, str_val) ; 

xl ;= 63; yl ;= 16; x2 := 65; y2 ;= 16; 
field_type := int; int_min_value := 1; int_max_value 



begin 

set_up_f ields ; 
save_screen ; 
clear_area (1,2,80,25); 

draw_window (1,3,80,23, white, blue, 'Game Parameters'); 
display_edit_screen_help_line; 

edit_screen (number_of_f ields, field_list, not 

abort_allowed) ; 

with game_parameters do 



end; 

save_game__parameters_to_disk ; 

restore_screen 

end; 

{ 

Procedure name : VIEW_COMMANDERS_GUIDANCE 

Purpose : this procedure allows the player to 
view, change, or print the commanders guidance 
for the game. 

Parameters : none. 

Called by : INITIALIZE_NEW_GAME 
CHANGE_PARAMETERS 

) 

procedure view_commanders_guidance ; 

(^************************************************) 

{ 

Procedure name : SET UP FIELDS 



maxint 

end 

end; 



begin 

time_step_size 



avg_track_convoy_speed 
avg_wheel_convoy_speed 
avg_t ime_t ra ins_t o_a tp 



f ield_list [ 1] . int_value; 
field_list[2 ] . int_value; 
field_list[3 ] . int_value; 
field_list[4 ] . int_value 
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Purpose : this procedure initializes the data 
that describes the fields for displaying the 
commanders guidance data. 

Parameters : none. 



Called by : VIEW_COMMANDERS_GUIDANCE 



} 

(************************************************) 

procedure set_up_f ields ; 



begin 

number_of_f ields := 9; 
with f ield_list [ 1] do 
begin 

label_string := 'Unit sitrep frequency (minutes) 
label_x := 14; label_y := 5; 

int_value := commanders_guidance . unit_sitrep_frequency ; 

str (int_value, str_val) ; 

xl := 63; yl := 5; x2 ;= 65; y2 := 5; 

field_type := int; int_min_value := 1; int_max_value ;= 
maxint 
end ; 

with field_list [2 ] do 
begin 

label_string := 'Vulnerability threshold (hours) :'; 
label_x ;= 14; label_y := 7; 
float_value := 

commanders_guidance . vulnerability_threshold_time ; 
str (float_value : 6 : 3 , str_val) ; 
xl := 63; yl := 7; x2 := 68; y2 := 7; 
field_type := float; float_min_value := 0.0; 
float_max_value := 100.0 
end ; 

with f ield_list [ 3 ] do 
begin 

label_string ;= 'Vulnerability threshold (rds / position) 

• t 

label_x := 14; label_y := 9; 
int_value := 

commanders_guidance . vulnerability_threshold_rounds ; 
str (int_value, str_val) ; 

xl := 63; yl ;= 9; x2 := 65; y2 := 9; 

field_type := int; int_min_value := 1; int_max_value := 
maxint 
end ; 

with f ield_list [4 ] do 
begin 

label_string := 'Ammo truck crew rest (hrs / day) :'; 
label_x := 14; label_y := 11; 



154 



float_value := cominanders_guidance . crew_rest_per_day ; 
str ( float_value: 6 : 3 , str_val) ; 
xl := 63; yl := ll; x2 := 68; y2 := 11; 
field_type := float; float_min_value := 0.0; 
float_max_value := 24.0 
end; 

with field_list [5] do 
begin 

label_string := 'Battalion CSR 
label_x := 14; label_y := 13; 
int_value := commander s_guidance.bn_csr; 
str (int_value, str_val) ; 

xl := 63; yl := 13; x2 := 66; y2 := 13; 
field_type := int; int_min_value := 1; int_max_value 
maxint 
end; 

with f ield_list [6] do 
begin 

label_string := 'BMNT 

label_x := 14; label_y := 15; 

str_val := commanders_guidance.bmnt ; 

xl := 63; yl := 15; x2 := 67; y2 := 15; 

field_type := time 

end; 

with f ield_list [ 7 ] do 
begin 

label_string := 'EENT 

label_x ;= 14; label_y := 17; 

str_val := commanders_guidance. eent ; 

xl := 63; yl := 17; x2 := 67; y2 := 17; 

field_type := time 

end; 

with field_list[8] do 
begin 

label_string := 'Maneuver mission (Offense/Defense/No 
contact) : ' ; 

label_x := 14; label_y := 19; 

str_val := commanders_guidance .maneuver_mission ; 
xl := 63; yl := 19; x2 := 63; y2 := 19; 
field_type := ch; valid_char_set := [ '0' , 'D' , 'N' ] ; 
end; 

with field_list[9] do 
begin 

label_string := 'Axis (bearing in degrees) :'; 
label_x := 14; label_y := 21; 
int_value := commanders_guidance . axis ; 
str (int_value, str_val) ; 

xl := 63; yl := 21; x2 := 66; y2 := 21; 
field_type := int; int_min_value ;= 1; int_max_value 

360 

end 
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end ; 



begin 

set_up_f ields ; 
save_screen ; 
clear_area (1,2,80,25); 

draw_window (1,3,80,23, white, blue, ' Commander '' s 
Guidance ' ) ; 

display_edit_screen_help_line ; 

edit_screen (number_of_f ields, field_list, not 
abort_allowed) ; 
with commanders_guidance do 
begin 

unit_sitrep_frequency := 

f ield_list [ 1 ] . int_value ; 

vulnerability_threshold_time := 
f ield_list [ 2 ] . f loat_value ; 

vulnerability_threshold_rounds : = 
f ield_list [ 3 ] . int_value ; 

crew_rest_per_day := 

f ield_list [ 4 ] . f loat_value ; 

bn_csr := 

f ield_list [ 5 ] .int_value; 

bmnt := field_list[6] .str_val ; 

eent := f ield_list [ 7 ] . str_val ; 

maneuver_mission := 

f ield_list [ 8 ] . str_val [ 1] ; 

axis := field_list [9] . int_value 

end ; 

save_commanders_guidance_to_disk; 

restore_screen 

end ; 



(************************************************) 

{ 

Procedure name : VIEW_BATTALION_CONFIGURATION 

Purpose : this procedure allows the player to 
view, change, or print the battalion 
configuration for the game. It presents the 
player with a menu to select the trains, 
fire units, or ammo trucks. 

Parameters : none. 



Called by : INITIALIZE_NEW_GAME 



} 

(************************************************) 
procedure view_battal ion_conf igurat ion ; 
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var 



choice : integer; 

{ 

Procedure name : UPDATE_TRAINS_LOCATION 

Purpose ; this procedure allows the player to 
view, change, or print the location of the 
battalion trains for the start of the game. 

Parameters : none. 

Called by : VIEW_BATTALION_CONFIGURATION 

) 

procedure update_trains_location ; 

{ 

Procedure name : SET_UP_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
location of the battalion trains data. 

Parameters : none. 



Called by ; UPDATE_TRAINS_LOCATION 



) 

^’k'k’k’kicicic'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k-k’k'k-kicicic-k’kic-k’k-k'k'k'k'k'k-kicic'k-k'k’k'^ 

procedure set_up_f ields ; 



begin 

number_of_f ields := 1; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Trains location (node) 
label_x := 27; label_y := 13; 
str_val := battalion_trains. location; 
xl := 53; yl := 13; x2 := 57; y2 := 13; 
field_type := strg 
end 
end; 

begin 

set_up_f ields ; 
save_screen; 
clear_area (2,4,79,22); 
display_edit_screen_help_line ; 
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edit_screen (nuitiber_of_f ields , field_list, not 
abort_allowed) ; 

battalion_trains . location := upper_case 
( f ield_l ist [ 1 ] . str_val ) ; 
restore_screen 
end ; 



{ 

Procedure name : UPDATE_NUMBER_OF_UNITS 

Purpose : this procedure allows the player to 
view, change, or print the number of ammo 
trucks and fire units to use for the play of 
the game . 

Parameters : none. 

Called by : VIEW_BATTALION_CONFIGURATION 

} 

^'k'k'k'kic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'^ 

procedure update_number_of_units ; 



(************************************************) 

{ 

Procedure name : SET_UP_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
the number of fire units and ammo trucks. 

Parameters : none. 



Called by : UPDATE_NUMBER_OF_UNITS 



) 

(***★*★***★****★**•***★★★**★***★************★★★*★★) 
procedure set_up_f ields ; 



begin 

number_of_f ields := 2; 
with f ield_list [ 1] do 
begin 

label_string := 'Number of firing units 
label_x := 25; label_y := 12; 
int_value ;= number_of_f iring_units ; 
str (int_value, str_val) ; 

xl := 53; yl := 12; x2 := 55; y2 := 12; 
field_type := int; int_min_value := 1; int_max_value 
max_f iring_units 
end ; 

with f ield_list [2 ] do 
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begin 

label_string ;= 'Number of ammo trucks 
label_x := 25; label_y := 14; 
int_value := number_o f_ammo_t rucks ; 
str (int_value, str_val) ? 

xl := 53; yl := 14; x2 := 55; y2 ;= 14; 
field_type := int; int_min_value ;= 1; int_max_value 
ma x_ammo_t rucks 
end 
end; 

begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,4,79,22); 
display_edit_screen_help_line ; 

edit_screen (number_of_f ields , field_list, not 
abort_allowed) ; 

number_of_firing_units := f ield_list [ 1] . int_value; 
number_of_ammo_trucks := field_list [2] . int_value; 
restore_screen 
end; 

(************************************************) 

{ 

Procedure name : UPDATE_FIRING_UNIT_DATA 

Purpose : this procedure allows the player to 
view, change, or print the data that pertains 
to the fire units for the play of the game. 

Parameters : none. 

Called by : VIEW_BATTALION_CONFIGURATION 

) 

(************************************************) 
procedure update_f iring_unit_data ; 

^^***-k-k-k*-k-k****-k-k-k-k****-kifk-k-k-k***-k****‘k'k'kic******‘k*-k'j 

{ 

Procedure name : SET_UP_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
data for the fire units. 

Parameters : none. 



Called by : UPDATE_FIRING UNIT DATA 



) 

(************************************************ j 
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procedure set_up_f ields ; 
begin 

number_of_f ields := 6; 
with f ield_list [ 1] do 
begin 

label_string := 'Unit name 
label_x := 17; label_y ;= 8; 
xl ;= 57; yl := 8; x2 := 61; y2 := 8; 
field_type ;= eval; eval_function := 
unique_f iring_unit_name 
end ; 

with field_list[2] do 
begin 

label_string := 'Number of guns :'; 
label_x := 17; label_y := 10; 
xl := 57; yl := 10; x2 := 61; y2 := 10; 
field_type := int; int_min_value := 1; int_max_value 
maxint 
end ; 

with field_list[3 ] do 
begin 

label_string := 'Location (node) :'; 

label_x := 17; label_y := 12; 

xl ;= 57; yl := 12; x2 := 61; y2 := 12; 

field_type ;= strg 

end ; 

with f ield_list [4 ] do 
begin 

label_string := 'Firing section capacity (rounds) :'; 
label_x := 17; label_y := 14; 
xl ;= 57; yl ;= 14; x2 := 60; y2 ;= 14; 
field_type := int; int_min_value := 1; int_max_value 
maxint 
end ; 

with field_list [5] do 
begin 

label_string ;= 'Rounds on hand for firing unit :'; 
label_x := 17; label_y := 16; 
xl := 57; yl := 16; x2 := 60; y2 := 16; 
field_type := int; int_min_value ;= 1; int_max_value 
maxint 
end ; 

with field_list[6] do 
begin 

label_string := 'Sustained rate of fire (rounds/tube) 

label_x := 17; label_y := 18; 
xl := 57; yl ;= 18; x2 := 60; y2 := 18; 
field_type := int; int_min_value := 1; int_max_value 
maxint 
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end 
end ; 

begin 

set_up_f ields ; 
save_screen; 
clear_area (2,4,79,22); 
display_edit_screen_help_line ; 

center_text (24, 'Page Up - next firing unit '+ 

'Page Down - previous firing unit', red); 
center_text (5, 'Firing unit data', cyan); 
f iring_unit_nuinber := 1; 
repeat 

save_screen ; 
clear_area (2,6,79,22); 

with f iring_units [ f iring_unit_number ] do 
begin 

f ield_list [ 1] . str_val := f iring_unit_name ; 
field_list[2] . int_value ;= number_of_guns ; 
str (field_list[2] . int_value, field_list[2] . str_val) 
f ield_list [ 3 ] . str_val := location; 
field_list [4 ] . int_value := 
section_max_rounds_capacity ; 

str (f ield_list [4 ] . int_value, f ield_list [4 ] . str_val) 
field_list [5] . int_value := rounds_on_hand ; 
str (f ield_list [5] . int_value, f ield_list[5] . str_val) 
f ield_list[6] . int_value := sustained_rate_of_f ire ; 
str (field_list[6] . int_value, field_list[6] .str_val) 
edit_screen (number_of_f ields , field_list, not 
abort_allowed) ; 

f iring_unit_name ;= upper_case 

(f ield_list [ 1 ] . str_val) ; 

number_of_guns := 

field_list [2 ] . int_value; 

sections_in_operating_condition := number_of_guns ; 

location ;= upper_case 

(f ield_list [ 3 ] . str_val) ; 

section_max_rounds_capacity := 

field_list [4 ] . int_value; 

rounds_on_hand : = 

field_list[5] .int_value; 

sustained_rate_of_f ire := 

field_list[6] . int_value 
end ; 

if key = page_down then 
begin 

if f iring_unit_number = 1 then 

f iring_unit_number := number_of_f iring_units 
else 

deer ( f iring_unit_number) 

end 
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else if key = page_up then 
begin 

if f iring_unit_nuinber = number_of_f iring_units then 
f iring_unit_number ;= 1 
else 

incr (f iring_unit_number) 
end; 

restore_screen 
until key = escape; 
restore_screen 
end; 

^'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kicic'kicicic'k'k^ 

{ 

Procedure name ; UPDATE_AMMO_TRUCK_DATA 

Purpose : this procedure allows the player to 
view, change, or print the data that pertains 
to the ammo trucks for the play of the game. 

Parameters : none. 

Called by : VIEW_BATTALION_CONFIGURATION 

) 

procedure update_ammo_truck_data ; 

^ 'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k ^ 

{ 

Procedure name : SET_UP_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
data for the ammo trucks. 



Parameters ; none. 



Called by : UPDATE_AMMO_TRUCK_DATA 



) 

(************************************************) 
procedure set_up_f ields; 



begin 

number_of_f ields := 4; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Bumper number 
label_x := 24; label_y := 10; 
xl := 54; yl := 10; x2 := 58; y2 : = 10; 
field_type := eval; eval_f unction := 
unique_bumper_number 
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end; 

with field_list[2] do 
begin 

label_string ;= 'Location (node) 

label_x := 24; label_y ;= 12; 

xl := 54; yl ;= 12; x2 := 58; y2 ;= 12; 

field_type := strg 

end; 

with field_list [3] do 
begin 

label_string := 'Load status (Full / Empty) :'; 
label_x := 24; label_y := 14; 
xl := 54; yl ;= 14; x2 := 54; y2 := 14; 
field_type := ch; valid_char_set ;= ['F','E'] 
end; 

with f ield_list [ 4 ] do 
begin 

label_string ;= 'Truck capacity (rounds) :'; 
label_x ;= 24; label_y := 16; 
xl := 54; yl := 16; x2 := 57; y2 := 16; 
field_type := int; int_min_value ;= 1; int_max_value : 
maxint 
end 
end; 

begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,4,79,22); 
display_edit_screen_help_line ; 

center_text (24, 'Page Up - next ammo truck '+ 

'Page Down - previous ammo truck', red) ; 
center_text (5, 'Ammo truck data', cyan); 
ammo_truck_number : = 1 ; 
repeat 

save_screen; 
clear_area (2,6,79,22); 
with ammo_trucks[ammo_truck_number] do 
begin 

f ield_list [ 1 ] . str_val := bumper_number ; 
field_list[2] .str_val ;= location; 
field_list[3] .str_val := load_status; 
field_list [4 ] . int_value := ammo_capacity ; 
str (field_list[4] . int_value, field_list[4] .str_val) ; 
edit_screen (number_of_f ields, field_list, not 
abort_al lowed) ; 

bumper_number ;= upper_case (field_list[l] .str_val) 
location := upper_case (field_list [2] .str_val) 

load_status ;= f ield_list [ 3 ] . str_val [ 1 ] ; 
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anuno_capacity := field_list[4] . int_value; 
end ; 

if key = page_down then 
begin 

if aTtuno_truck_nuinber = 1 then 

anuno_truck_nuinber := number_of_amino_t rucks 
else 

deer (ammo_truck_nuinber) 

end 

else if key = page_up then 
begin 

if ammo_truck_nuinber = nuinber_of_ainino_trucks then 
anuno_truck_number : = 1 
else 

incr (aniino_truck_nuinber) 
end ; 

restore_screen 
until key = escape; 
restore_screen 
end ; 



begin 

save_screen ; 
clear_area (1,2,80,25); 

draw_window (1,3,80,23, white, blue, 'Battalion 

Configuration / Status'); 

menu_xl := 20; 

menu_yl := 7; 

menu_x2 := 60; 

menu_y2 := 19; 

repeat 

choice := menu_selection (null_string, 'Location of 
trains | '+ 

'Number of firing 



units / trucks] '+ 
data I ' + 



'Firing unit 



'Ammo truck 



data I ' + 

'Return\' ) ; 

case choice of 

1 : update_trains_location ; 

2 ; update_number_of_units ; 

3 : update_f iring_unit_data ; 

4 ; update_ammo_truck_data 

end 

until choice = 5; 
menu_xl := menu_xl_de fault ; 
menu_yl := menu_yl_def ault ; 
menu_x2 := menu_x2_default ; 
menu_y2 ;= menu_y2_default ; 
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save_unit_data_to_disk; 

restore_screen 

end; 

(************************************************) 

{ 

Procedure name : INTIALIZE_NEW_GAME 

Purpose : this procedure initializes all 

variables and files for the play of a new game. 
It also provides a menu for allowing the player 
to view, modify, or print any of the parameters, 
commanders guidance, unit data, or network. It 
returns a false if the player elects to return 
to the game's main menu. 

Parameters ; none. 



Called by : PLAY_NEW_GAME 



} 

(^************************************************) 
function initial ize_new_game : boolean; 



var 

choice : integer; 

N 

{ 

Procedure name : INTIALIZE_NEW_GAME_VARIABLES 

Purpose : this procedure initializes all 

variables and files for the play of a new game. 

Parameters : none. 



Called by : INITIALIZE_NEW_GAME 



) 

(************************************************) 
procedure initialize_new_game_variables ; 



^'k'kic’k'k'k'k'k'k'k'k'k'k'k'kic-k-k'k'krk'k'k'k'k'kic'k'k'k'k'k'k’k'k'k'k'kicic'k'k'k'k'k’k'k'k'^ 

{ 

Procedure name ; INTIALIZE GAME PARAMETERS 



Purpose : this procedure initializes the game 
parameters by reading them from disk if they 
exist from a previous game or by assigning 
default values from unit GLOBAL if a file 
does not exist from a previous game. 

Parameters ; none. 
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Called by : INITIALIZE_NEW_GAME_VARIABLES 

) 

(************************************************) 
procedure initial ize_game_parameters ; 

begin 

game_parameters ;= default_game_parameters ; 
assign (gamparam_f ile , game_parameter_f ilename) ; 
reset (gamparam_f ile) ; 
if ioresult = 0 then 

read (gamparam_f ile , game_parameters) ; 
close (gamparam_f ile) 
end; 

(************************************************) 

{ 

Procedure name : INITIALIZE_COMMANDERS_GUIDANCE 

Purpose : this procedure initializes the 

commanders guidance by reading them from disk 
if they exist from a previous game or by 
assigning default values from unit GLOBAL if a 
file does not exist from a previous game. 

Parameters : none. 

Called by : INITIALIZE_NEW_GAME_VARIABLES 

) 

procedure initialize_commanders_guidance ; 
begin 

commanders_guidance := default_commanders_guidance ; 
assign (cdrguide_f ile , cdrs_guidance_f ilename) ; 
reset (cdrguide_f ile) ; 
if ioresult = 0 then 

read (cdrguide_f ile, commanders_guidance) ; 
close (cdrguide_f ile) 
end; 

{ 

Procedure name : INITIALIZE_UNIT_DATA 

Purpose : this procedure initializes the unit 
data by reading them from disk if they exist 
from a previous game or by assigning default 
values from unit GLOBAL if a file does not 
exist from a previous game. 
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Parameters : none. 



Called by : INITIALIZE_NEW_GAME_VARIABLES 

) 

(★★★*★★★*★★★*★★★★*****★★★★★★**************★*★★***) 
procedure initialize_unit_data ; 

begin 

battalion_trains ;= default_battalion_trains ; 
for f iring_unit_number := 1 to max_f iring_units do 
f iring_units[firing_unit_number] := 
default_f iring_unit_data ; 

for ammo_truck_nuinber := 1 to max_ammo_trucks do 
ainmo_trucks [ammo_truck_number ] : = 

def ault_ammo_truck_data ; 
assign (trains_f ile, trains_f ilename) ; 
reset ( trains_f ile) ; 

assign (f ireunit_file, firing_unit_filename) ; 
reset ( f ireunit_f ile) ; 

assign (ammotrck_f ile, ammo_truck_f ilename) ; 
reset (ammotrck_f ile) ; 
if ioresult = 0 then 
begin 

read (trains_f ile, battalion_trains) ; 
if ioresult <> 0 then 

battalion_trains := default_battalion_trains ; 
f iring_unit_number := 0; 

while not (eof ( f ireunit_f ile) ) and (ioresult = 0) and 
(f iring_unit_number < max_f iring_units) do 
begin 

incr ( f iring_unit_number) ; 

read ( f ireunit_f ile , f iring_units [ f iring_unit_number ] ) 
end ; 

if (ioresult <> 0) and (f iring_unit_number <> 0) then 
f iring_units [ f iring_unit_number ] : = 
default_f iring_unit_data ; 
ammo_truck_number := 0; 

while not eof (ammotrck_f ile) and (ioresult = 0) and 
(ammo_truck_number < max_ammo_trucks) do 
begin 

incr (ammo_truck_number) ; 

read (ammotrck_file, ammo_trucks [ammo_truck_number] ) 
end ; 

if (ioresult <> 0) and (ammo_truck_number <> 0) then 
ammo_trucks [ ammo_truck_number ] : = 
default_ammo_truck_data ; 
end ; 

close (trains_f ile) ; 
close ( f ireunit_f ile) ; 
close (ammotrck_f ile) 
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end; 



^★★★★********************************************) 

{ 

Procedure name : INITIALIZE_EVENTS_LIST 

Purpose : this procedure initializes the files 
that will be used to maintain the events list 
throughout the game. 

Parameters : none. 

Called by : INITIALIZE_NEW_GAME_VARIABLES 

} 

(^************************************************'j 

procedure initialize_event_list ; 
begin 

makefile (event_list, event_data_filename, sizeof 
(event_record) ) ; 

makeindex (time_index, event_time_index_f ilename, 
sizeof (stringlO) - l, duplicates) ; 
makeindex (serial_number_index , event_serial_index_f ilename , 

sizeof (strings) - 1, duplicates) 

end; 

^★***********************************************J 

{ 

Procedure name : INITIALIZE_MESSAGE_LIST 

Purpose : this procedure initializes the files 
that will be used to maintain the message 
buffer throughout the game. 

Parameters ; none. 

Called by : INITIALIZE_NEW_GAME_VARIABLES 

} 

(************************************************) 
procedure initialize_message_list ; 

begin 

makefile (messages, message_data_f ilename, sizeof 
(message_record) ) ; 

makeindex (message_type_index, message_type_index_f ilename, 
sizeof (char) , duplicates) 

end; 

begin 

save screen; 
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draw_window (26,11,55,15, yellow, red, null_string) ; 
center_text (13, 'initializing game...', yellow); 
repeat 

scenario_f ile_name := 

get_file ('Enter scenario file name', 

'Hit ESC key to build a new scenario', 

' * . sen' ) 

until (scenario_file_name = null_string) or 
(scenario_f ile_valid) ; 

if scenario_f ile_name = null_string then 
begin 

scenario_f ile_name ;= get_new_scenario_filename ; 

initialize_new_scenario 

end; 

game_start_dtg : = scenar io_inf o . start_dtg ; 
dtg_to_datetime (game_start_dtg, game_start_time) ; 
game_dtg ;= game_start_dtg; 
game_time := game_start_time ; 

number_of_f iring_units := default_number_of_f iring_units 

number_of_ammo_trucks ;= de fault_number_of_ammo_t rucks ; 

initial ize_game_parameters ; 

initial ize_commanders_guidance ; 

initial ize_unit_data ; 

initialize_event_list ; 

initial ize_message_list ; 

total_game_time := 0; 

new_day := false; 

determine_day_or_night ; 

time_since_last_sitrep := 0; 

hostilities_started ;= false; 

command_serial_nuit±ier := 0; 

randomize ; 

restore_screen 

end; 

(************************************************j 

{ 

Procedure name : READY_TO_PLAY 

Purpose : this procedure insures that the game 
is ready to be played after initialization by 
checking to make sure that all units are 
placed at an existing node for game start. 

Parameters : none. 



Called by : INITIALIZE_NEW_GAME 



} 

(******************************************* 
function ready _to_play ; boolean; 
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var 



ready : boolean; 
temp_node : node_record; 

begin 

atp_rounds_on_hand ; = 0 ; 

for f iring_unit_number := 1 to nuniber_of_f iring_units do 
atp_rounds_on_hand := atp_rounds_on_hand + 

f ir ing_units [ f ir ing_unit_number ] . number_of_guns ; 
atp_rounds_on_hand ;= atp_rounds_on_hand * 
cominanders_guidance . bn_csr ; 
save_game_parameters_to_disk ; 
save_coininanders_guidance_to_disk; 
save_unit_data_to_disk; 
ready : = true ; 

for f iring_unit_number := 1 to number_of_f iring_units do 
begin 

taread (nodes, temp_node, 

f iring_units [ f iring_unit_number ] . location, 
exactmatch) ; 

if not ok then ready := false 
end; 

if ready then 

for ainino_truck_nuinber := 1 to number_of_ainino_trucks do 
begin 

taread (nodes, temp_node, 

ainino_trucks [ aiimio_truck_nuinber ] . location , 

exactmatch) ; 

if not ok then ready := false 
end; 

if ready then 
begin 

taread (nodes, temp_node, battalion_trains . location, 
exactmatch) ; 

if not ok then ready := false 
end; 

if not ready then 

display_error_message ('INITIALIZATION ERROR', 

'firing units, trucks, and 

trains ' , 

'must start game at valid 

locations ' , 

null_string, 

'correct this before continuing') 

ready_to_play := ready 
end; 

begin 

initialize_new_game_variables ; 
repeat 
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choice := menu_selection ('Scenario / Parameter Menu', 

'View or change scenario / 

network! '+ 

'View or change game 

parameters | '+ 

'View or change commander' 's 

guidance j ' + 

'View or change battalion 

configuration / status j '+ 

'Play game I ' + 

'Main menu\')» 

case choice of 

1 ; view_scenario; 

2 : view_game_parameters ; 

3 ; view_commanders_guidance ; 

4 ; view_battalion_conf iguration 

end 

until ((choice = 5) and ready_to_play) or (choice = 6); 
if choice = 6 then 
close_all_f iles ; 

initial ize_new_game := choice = 5 
end; 

(************************************************) 

{ 

Procedure name : INTIALIZE_OLD_GAME 

Purpose ; this procedure initializes all 

variables and files for the play of an old game 
that was saved in progress. The procedure 
automatically loads the data from disk if 
there is a game file there to be loaded. It 
returns a false value if it could not load the 
game successfully. 

Parameters : none. 



Called by : PLAY_OLD_GAME 



} 

^ieicicicicicicici:i::k'kicicici(ic'ki:i:’k'k'kicicic’k'kic'kicicic'k'k'k'k'k'k'k'k'kicic'k'k'k:k'^ 

function initialize_old_game : boolean; 



begin 

initialize_old_game := false 
end; 



begin 

end. 
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{ 

Unit name : SCENARIO 

Purpose : this unit contains the procedures that 
allow a player to create, modify, view, or 
print a scenario file. This includes the 
scenario header, the node data, and the path 
data. It also reads and saves scenario files 
from and to disk. 

) 

(★**★***************★****************************) 
unit scenario; 

interface 

{$!-) 

uses dos, crt, utility, gameutil, global, taccess, tahigh 

function scenario_f ile_valid : boolean; 
function get_new_scenario_f ilename : string; 
procedure initial ize_new_scenario ; 
procedure view_scenario ; 
procedure network_utility ; 

implementation 

const 

add_record = true; 
edit_record = false; 

(************************************************) 

{ 

Procedure name : SAVE_SCENARIO_TO_DISK 

Purpose : this procedure saves the scenario 
header information to disk. 



Parameters : none. 



Called by : VIEW_SCENARIO 



} 

(*****************************^^*****************J 

procedure save_scenario_to_disk; 



var 

i : integer; 
begin 

save_screen ; 

draw_window (26,11,55,15, yellow, red, null_string) ; 
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shade_window (26,11,55,15, black); 
center_text (13, 'updating files...', yellow); 
assign (scenario_f ile, scenario_f ile_name) ; 
rewrite (scenario_file) ; 
if ioresult = 0 then 

with scenario_info do 
begin 

writeln (scenario_file, 

(scenario_f ile. 



writeln 

writeln 



scenario_f ile_header) ; 
opord_number) ; 



(scenario_f ile, opord_date) ; 



map_sheets) ; 
start_dtg) ; 



writeln (scenario_f ile, 
writeln (scenario_f ile, 
for i ;= 1 to 10 do 

writeln (scenario_f ile, adinin_notes [ i ] ) 
end; 

close (scenario_f ile) ; 

restore_screen 

end; 



(************************************************) 

{ 

Procedure name ; VALID_SCENARIO_FILENAME 

Purpose ; this procedure insures that a 

file name entered for the new scenario is a 
valid and not previously used name. 

Parameters : STRING_VALUE - filen name to be 
checked . 



Called by : passed as a parameter to 

EDIT_SCREEN by GET_NEW_SCENARIO_FILENAME 

) 

($F+) 

function valid_scenario_f ilename (string_value : stringSO) 
: boolean; 



var 

temp_file : file; 
valid_f ilename ; boolean; 

begin 

valid_f ilename := false; 
assign (temp_file, string_value) ; 
reset ( tern p_f ile) ; 
if ioresult = 2 then 
begin 

rewrite (temp_file) ; 
if ioresult <> 2 then 
begin 
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valid_f ilename ;= true; 
erase (temp_file) 
end 
end ; 

if not valid_f ilename then 

display_error_message ('FILE ERROR', null_string, 

'filename entered is not valid', 
'or already exists', 
null_string) ; 

close (temp_file) ; 

valid_scenario_f ilename := valid_f ilename 
end ; 

($F-) 

^************************************************J 

{ 

Procedure name ; SCENARIO_FILE_VALID 

Purpose : this procedure checks a selected 
scenario file name to insure that the file 
contains a valid scenario that can be loaded. 

Parameters : none. 

Called by : INITIALIZE_NEW_GAME_VARIABLES 

} 

function scenario_f ile_valid : boolean; 
var 

file_header : stringSO; 
i : integer; 

scenario_valid : boolean; 
dir : dirstr; 
name : namestr; 
ext ; extstr; 

begin 

scenario_valid := false; 

assign (scenario_f ile , scenario_f ile_name) ; 
reset (scenario_f ile) ; 
if ioresult = 0 then 
begin 

readln (scenario_f ile , file_header) ; 
if file_header = scenario_f ile_header then 
begin 

with scenario_info do 
begin 

readln (scenario_f ile , opord_number) ; 
readln (scenario_file, opord_date) ; 
readln (scenario_file, map_sheets) ; 
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= dir + name + 
= dir + name + 
= dir + name + 
= dir + name + 



readln (scenario_f ile, start_dtg) ; 
for i := 1 to 10 do 

readln (scenario_f ile, admin_notes[i] ) 
end; 

if (ioresult = 0) and (valid_dtg 
(scenario_info. start_dtg) ) then 
begin 

fsplit (scenario_f ile_name, dir, name, ext) ; 
node_data_f ilename 
node_data_f ilename_ext ; 

path_data_f ilename 
path_data_filename_ext; 

node_index_f ilename 
node_index_f ilename_ext ; 

pa th_index_f ilename 
path_index_f ilename_ext ; 

taopen (nodes, node_data_f ilename, sizeof 
(node_record) , 

node_index_f ilename , sizeof 

(string_5) ) ; 

if ok then 
begin 

taopen (paths, path_data_f ilename, sizeof 
(path_record) , 

path_index_f ilename, sizeof 

(string_5) ) ; 

if ok then 

scenario_valid := true 

end 

end 

end 
end ; 

if not scenario_valid then 

display_error_message (null_string, scenario_f ile_name, 

'INVALID SCENARIO FILE', 

'check it before continuing', 

'or try another'); 

scenario_f ile_valid := scenario_valid; 
close (scenario_f ile) 
end ; 



(************************************************) 

{ 

Procedure name : GET_NEW_SCENARIO_FILENAME 

Purpose : this procedure prompts the player to 
enter a name for the new scenario that he would 
like to create. 

Parameters : none . 



175 



Called by : INITIALIZE_NEW_GAME_VARIABLES 

} 

function get_new_scenario_f ilename : string; 

{ 

Procedure name ; SET_UP_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
prompt for entering a file name. 

Parameters : none. 



Called by : GET_NEW_SCENARIO_FILENAME 



) 

^★***********************************************J 

procedure set_up_f ields ; 



begin 

number_of_f ields := 1; 
with f ield_list [ 1] do 
begin 

label_string := 'File name for new scenario 
label_x := 10; label_y := 13; 
str_val := default_scenario_f ile_name; 
xl := 40; yl := 13; x2 := 70; y2 := 13; 
field_type := eval; eval_function := 
val id_scenario_f ilename ; 

end 
end ; 



begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,4,79,22); 

draw_window (1,3,80,23, white, blue, 'New Scenario') 
display_edit_screen_help_line ; 

edit_screen (number_of_f ields, field_list, not 
abort_al lowed) ; 

get_new_scenario_f ilename := upper_case 
( f ield_list [ 1 ] . str_val) ; 
restore_screen 
end ; 



(************************************************J 

{ 

Procedure name : INITIALIZE_NEW_SCENARIO 
Purpose : this procedure initializes the new 
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scenario by assigning a default header to the 
scenario and creating the files to hold the 
node and path data. 

Parameters : none. 



Called by : INITIALIZE_NEW_GAME_VARIABLES 

) 

procedure initialize_new_scenario ; 



var 

dir : dirstr; 
name : namestr; 
ext : extstr; 



begin 

scenario_info := default_scenario_info; 
save_scenario_to_disk; 

fsplit (scenario_file_name, dir, name, ext) ; 
node_data_f ilename := dir + name + node_data_filename_ext; 

path_data_f ilename := dir + name + path_data_f ilename_ext ; 

node index filename := dir + name + node index filename ext; 



path_index_f ilename := dir + name + path_index_f ilename_ext ; 



tacreate (nodes. 



) ; 

tacreate (paths. 



node_data_f ilename, 
node_index_f i 1 ename , 

pa th_data_f i 1 ename , 
path_index_f ilename. 



sizeof (node_record) , 
sizeof (string_5) 

sizeof (path_record) , 
sizeof (string_5) ) 



end; 

^‘k-krk’k’k’k-k-k'k'k'k-k'k-kicic-k-k'kit'k-k-k-k’kifkic’k'k'k'k'k'k-k-kic-kic’k-k-kifk'k'kic'k'^ 

{ 

Procedure name : NETWORK_UTILITY 

Purpose ; this procedure allows the user to 
get information about the network he has 
created. It includes determining min time and 
min distance routes between selected nodes. 



Parameters : none. 



Called by : VIEW_SCENARIO 
PLAY WARGAME 



) 

(************************************************) 
procedure network_utility ; 
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begin 
end ; 



(************************************************) 

{ 

Procedure name : VIEW_SCENARIO 

Purpose : this procedure allows the player to 
view, change, or print the game scenario for 
the game. It presents the player with a menu 
to select the scenario header, the node data, 
or the path data. It also allows him to use 
the network utility from here. 



Parameters ; none. 

Called by : INITIALIZE_NEW_GAME 
CHANGE PARAMETERS 



} 

procedure view_scenario; 



var 

choice : integer; 

^************************************************) 

{ 

Procedure name : UPDATE_SCENARIO_INFORMATION 

Purpose : this procedure allows the player to 
view, change, or print the scenario header 
information for the current scenario. 



Parameters : none. 

Called by : VIEW_SCENARIO 



} 

^************************************************J 

procedure update_scenario_inf ormation ; 



(★★★★****★****★★★★★*★★★*******★*★★*★★*★★★★★★*★*★★) 

{ 

Procedure name : SET_UP_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
scenario header information. 



Parameters : none. 

Called by ; UPDATE_SCENARIO_INFORMATION 
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} 

^**********************************************1*f*) 

procedure set_up_f ields ; 
begin 

number_of_f ields := 14; 
with f ield_list [ 1 ] do 
begin 

label_string := 'OPORD # 

label_x := 11; label_y ;= 6; 

str_val := scenario_info.opord_number ; 

xl := 22; yl := 6; x2 := 31; y2 ;= 6; 

field_type := strg 

end; 

with f ield_list [2 ] do 
begin 

label_string := 'OPORD Date 

label_x := 11; label_y ;= 7; 

str_val ;= scenario_info.opord_date; 

xl := 25; yl := 7; x2 := 39; y2 := 7; 

field_type := strg 

end; 

with f ield_list [ 3 ] do 
begin 

label_string := 'Map sheets 

label_x := 11; label_y ;= 8; 

str_val := scenario_info.map_sheets; 

xl := 25; yl := 8; x2 := 70; y2 := 8; 

field_type := strg 

end ; 

with f ield_list [ 4 ] do 
begin 

label_string := 'Game start time (DTG) :'; 
label_x := 11; label_y := 9; 
str_val := scenario_info.start_dtg; 
xl := 36; yl := 9; x2 := 50; y2 := 9; 
field_type := dtg 
end ; 

with field_list[5] do 
begin 

label_string := 'Admin note :'; 

label_x := 11; label_y := 11; 

str_val ;= scenario_info. admin_notes [ 1 ] ; 

xl := 25; yl ;= 11; x2 ;= 70; y2 ;= 11; 

field_type := strg 

end ; 

with field_list[6] do 
begin 

label_string := null_string; 
label_x ;= 1; label_y := 1; 
str_val := scenario_info.admin_notes[2] ; 
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x2 := 70; y2 ;= 12; 



xl := 11; yl := 12; 
field_type := strg 
end; 

with field_list [7 ] do 
begin 

label_string ;= null_string; 

label_x := 1; label v ;= 1; 

str_val := scenario_info.admin_notes[3] ; 

xl ;= 11; yl ;= 13; x2 ;= 70; y2 ;= 13; 

field_type := strg 

end; 

with field_list [8] do 
begin 

label_string := null_string; 

label_x := 1; label y ;= 1; 

str_val := scenario_info. admin_notes [ 4 ] ; 

xl := 11; yl := 14; x2 := 70; y2 := 14; 

field_type := strg 

end; 

with field_list[9] do 
begin 

label_string := null_string; 

label_x := 1; label_y := 1; 

str_val := scenario_info. admin_notes [ 5] ; 

xl := 11; yl := 15; x2 := 70; y2 := 15; 

field_type ;= strg 

end ; 

with field_list [ 10] do 
begin 

label_string := null_string; 

label_x := 1; label_y := 1; 

str_val := scenario_info. admin_notes [ 6 ] ; 

xl := 11; yl := 16; x2 := 70; y2 := 16; 

field_type := strg 

end ; 

with field_list[ll] do 
begin 

label_string := null_string; 

label_x ;= 1; label_y := l; 

str_val := scenario_info. admin_notes [ 7 ] ; 

xl := 11; yl := 17; x2 := 70; y2 := 17; 

field_type ;= strg 

end ; 

with f ield_list [ 12 ] do 
begin 

label_string := null_string; 

label_x := 1; label_y := 1; 

str_val := scenario_info. admin_notes [ 8 ] ; 

xl := 11; yl ;= 18; x2 := 70; y2 := 18; 

field_type := strg 

end ; 
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with field_list[13] do 
begin 

label_string := null_string; 

label_x := 1; label_y := 1; 

str_val := scenario_info.admin_notes[9] ; 

xl := 11; yl := 19; x2 := 70; y2 := 19; 

field_type := strg 

end; 

with f ield_list [ 14 ] do 
begin 

label_string := null_string; 
label_x := 1; label_y := 1; 
str_val := scenario_info.admin_notes[10] ; 
xl ;= 11; yl := 20; x2 := 70; y2 := 20; 
field_type := strg 
end 
end; 



begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,4,79,22); 
display_edit_screen_help_line ; 
edit_screen (nuinber_of_f ields, field 
abort_allowed) ; 
with scenario_info do 
begin 



list, not 



opord_number 

opord_date 

map_sheets 

start_dtg 

game_start_dtg 

dtg_to_datetime 



= f ield_list [ 1] . str_val ; 

= f ield_list [2] . str_val ; 

= f ield_list [ 3 ] . str_val ; 

= field_list[4] .str_val; 

: = start_dtg ; 

iai_y_L.u_uai.ci.xiuc (game_st art_dtg , game_start_tiine) 
game_dtg := game_start_dtg ; 
gaTne_tiine := gaTne_start_time ; 
admin_notes[l] := field_list [5] . i 



admin_notes [ 2 ] 
admin_notes [ 3 ] 
admin_notes [ 4 ] 
admin_notes [ 5 ] 
admin_notes [ 6 ] 
admin_notes [ 7 ] 
admin_notes [ 8 ] 
admin_notes [ 9 ] 
admin_notes [ 10 ] 
end; 

save_scenario_to_disk; 

restore_screen 

end; 



field_list [6] 
field_list [7] 
f ield_list [8 ] . 
field_list[9] . 
field_list[10] 
f ield_list [11] 
f ield_list [ 12 ] 
field_list[13] 
field_list[14] 



str_val ; 
str_val ; 
str_val ; 
str_val ; 
str_val ; 

. str_val ; 
. str_val ; 
. str_val ; 
. str_val ; 
.str val 



(************************************************) 
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{ 

Procedure name : UPDATE_NODE_DATA 

Purpose : this procedure allows the player to 
view, change, or print the node data that is 
part of the current scenario. 

Parameters : none. 



Called by : VIEW_SCENARIO 



} 

^ ************************************************ J 

procedure update_node_data ; 



var 

current_node : node_record ; 
current_node_name : strings ; 

^************************************lfc***********J 

{ 

Procedure name : INITIALIZE_NODE_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
node data . 



Parameters : none. 



Called by : UPDATE_NODE_DATA 



) 

procedure initial ize_node_f ields ; 



begin 

number_of_f ields := 11; 
with field_list[ 1] do 
begin 

label_string := 'Node name 

label_x := 15; label_y := 7; 

xl := 28; yl := 7; x2 := 32; y2 := 7; 

field_type := strg 

end ; 

with f ield_list [ 2 ] do 
begin 

label_string := 'Associated paths :'; 

label_x := 15; label_y := 9; 

xl := 36; yl := 9; x2 ;= 40; y2 := 9; 

field_type := strg 

end ; 

with f ield_list [ 3 ] do 
begin 
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9; 



label_string ;= null_string; 
label_x := 15; label_y := 9; 
xl := 43; yl := 9; x2 := 47; y2 := 
field_type := strg 
end; 

with field_list [4 ] do 
begin 

label_string := null_string; 
label_x := 15; label_y ;= 9; 
xl ;= 50; yl ;= 9; x2 := 54; y2 ;= 9; 
field_type ;= strg 
end; 

with field_list[5] do 
begin 

label_string := null_string; 

label_x ;= 15; label_y ;= 10; 

xl := 36; yl ;= 10; x2 := 40; y2 ;= 10; 

field_type := strg 

end; 

with field_list[6] do 
begin 

label_string := null_string; 

label_x := 15; label_y := 10; 

xl := 43; yl := 10; x2 ;= 47; y2 := 10; 

field_type := strg 

end ; 

with f ield_list [7 ] do 
begin 

label_string := null_string; 

label_x := 15; label_y := 10; 

xl := 50; yl := 10; x2 := 54; y2 := 10; 

field_type := strg 

end; 

with f ield_list [ 8 ] do 
begin 

label_string := 'Location (grid) 

label_x ;= 15; label_y ;= 12; 

xl := 50; yl := 12; x2 := 59; y2 := 12; 

field_type := strg 

end; 

with f ield_list[9] do 
begin 

label_string := 'Position type (Rural/Urban) :'; 
label_x := 15; label_y := 14; 
xl := 58; yl := 14; x2 := 58; y2 := 14; 
field_type := ch; valid_char_set := ['R','U'] 
end; 

with field_list[10] do 
begin 

label_string := 'Cover and concealment (High/Medium/Low) 
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label_x := 15; label_y := 16; 
xl ;= 58; yl := 16; x2 := 58; y2 := 16; 
field_type ;= ch; valid_char_set := [ 'H' , 'M' , 'L' ] 
end; 

with field_list[ll] do 
begin 

label_string ;= 'Prepositioned ammo count (rounds) 
label_x := 15; label_y := 18; 
xl := 58; yl := 18; x2 := 61; y2 := 18; 
field_type ;= int; int_min_value := 0; int_max_value 
maxint 
end 
end ; 



{ 

Procedure name : DISPLAY NODE DATA 



Purpose : this procedure uses the data that 
describes the fields for displaying the 
node data and uses it to display a node's data. 

Parameters ; N0DE_DATA - record containing the 
data for the node to be displayed. 



Called by : UPDATE_NODE_DATA 



procedure display_node_data (node_data : node_record) ; 



var 



integer; 



begin 

with node_data do 
begin 

f ield_list [ 1 ] . str_val 
f ield_list [ 2 ] . str_val 
f ield_list [ 3 ] . str_val 
f ield_list [ 4 ] .str_val 
f ield_list [ 5] . str val 
f ield_list [6] 
f ield_list [ 7 ] 
field_list [8] 
field_list [9] 
field_list[10] 



. str_ 
. str_ 
, str_ 
, str 



yal 

yal 

yal 

val 



.str val 



= node_name; 

= paths [ 1] ; 

= paths [ 2 ] ; 

= paths [ 3 ] ; 

= paths [ 4 ] ; 

= paths [ 5] ; 

= paths [ 6] ; 

= grid; 

= position_type; 

:= cover concealment; 



str (ammo_count, f ield_list [ 11 ] . str_val) 
end; 

for i ;= 1 to number_of_f ields do 
with f ield_list [ i ] do 
begin 
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end; 



put_string (label_x, label_y, label_string) ; 

put_string (xl, yl, str_val) 

end 



^****'******************************************‘**J 

{ 

Procedure name : EDIT_NODE_SCREEN 

Purpose : this procedure uses the data that 
describes the fields for displaying the 
node data and uses it to display a node's data 
and allow it to be changed. 

Parameters ; NODE_DATA - record containing the 
data for the node to be displayed. 

NEW_RECORD - boolean record indicating whether 
a new node is being entered or an existing one 
is being modified. 



Called by : EDIT_NODE 



) 

(************************************************) 
procedure edit_node_screen (var node_data : node_record; 
new_record : boolean) ; 



var 

temporary_f ield : f ield_record ; 
error_code : integer; 
i : integer; 



begin 

save_screen; 
if new_record then 

display_add_record_help_l ine 
else 



display_edit_screen_help_ 
clear_area (2,6,79,22); 
clear_area (1,24,80,24); 
with node_data do 
begin 

f ield_list [ 1 ] . str_val 
f ield_list [ 2 ] . str_val 
f ield_list [ 3 ] .str_val 
field_list[4] .str_val 
f ield_list [ 5 ] . str_val 
f ield_list [ 6 ] .str_val 
f ield_list [ 7 ] . str_val 
f ield_list [ 8 ] .str_val 
f ield_list [ 9 ] . str_val 
field_list[10] .str_val 



line ; 



node_name ; 
paths [ 1 ] ; 
paths [ 2 ] ; 
paths [ 3 ] ; 
paths [ 4 ] ; 
paths [ 5 ] ; 
paths [ 6 ] ; 
grid; 

position_type ; 

■ cover concealment, 
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label_string) 



str ( ainrao_count , field_list [ 11] . str_val) 
end ; 

if new_record then 

edit_screen (number_of_f ields, field_list, abort_allowed) 

else 

begin 

with f ield_list [ 1] do 
begin 

put_string (label_x, label_y, 
put_string (xl, yl, str_val) 
end; 

temporary_f ield := f ield_list [ 1 ] ; 
for i := 2 to number_of_f ields do 

field_list[i - 1] := f ield_list [ i] ; 
deer (number_of_f ields) ; 

edit_screen (number_of_f ields, field_list, not 
abort_allowed) ; 

incr (number_of_f ields) ; 
for i := nuinber_of_f ields downto 2 do 
field_list[i] ;= field_list[i - 1]; 
f ield_list [ 1 ] := temporary_f ield 
end ; 

with node_data do 
begin 

node_name ;= upper_case (f ield_list [ 1] . str_val) 
paths[l] ;= upper_case (field_list[2] .str_val) ; 
paths[2] := upper_case 
paths[3] ;= upper_case 
paths [4] := upper_case 
paths [5] := upper_case 
paths [6] := upper_case _ 

grid := f ield_list [ 8 ] . str_val ; 
position_type := f ield_list [ 9 ] . str_val [ 1 ] ; 
cover_concealment := f ield_list [ 10 ] . str_val [ 1 ] ; 
val (field_list[ll] .str_val, amino_count, error_code) 
end; 

restore_screen 
end; 



( f ield_list [ 3 ] . str_val) ; 
(field_list[4] .str_val) ; 
( f ield_list [ 5 ] . str_val) ; 
(field_list[6] .str_val) ; 
(field_list[7] .str_val) ; 



(************************************************) 

{ 

Procedure name : GET_FIRST_NODE 

Purpose : this procedure retrieves the first node 
from the current scenario node file. 

Parameters : N0DE_DATA - record containing the 
data for the node being retrieved. 
CURRENT_NODE_NAME - string containing the name 
of the node being retrieved. 
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Called by : UPDATE_NODE_DATA 



) 

(*****************★*********************★★*******) 
procedure get_f irst_node (var current_node : node_record ; 

var current_node_name : strings) 



begin 

tareset (nodes) ; 

tanext (nodes, current_node, current_node_name) ; 
if not ok then 

current_node_name := null_string 
end ; 



(************************************************) 

{ 

Procedure name : GET_NEXT_NODE 

Purpose : this procedure retrieves the next node 
from the current scenario node file. 

Parameters : NODE_DATA - record containing the 
data for the node being retrieved. 
CURRENT_NODE_NAME - string containing the name 
of the node being retrieved. 



Called by : UPDATE_NODE_DATA 



) 

(************************************************J 

procedure get_next_node (var current_node : node_record; 

var current_node_name : strings) ; 



begin 

tanext (nodes, current_node, current_node_name) ; 
if not ok then 
begin 

tanext (nodes, current_node , current_node_name) ; 
if not ok then 

current_node_name := null_string 

end 
end ; 



(************************************************) 

{ 

Procedure name : GET_PREV_NODE 

Purpose : this procedure retrieves the previous 
node from the current scenario node file. 



Parameters : NODE_DATA - record containing the 
data for the node being retrieved. 
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CURRENT_NODE_NAME - string containing the name 
of the node being retrieved. 



Called by : UPDATE_NODE_DATA 



} 

^************************************************J 

procedure get_prev_node (var current_node : node_record; 

var current_node_name : strings) 



begin 

taprev (nodes, current_node, current_node_name) ; 
if not ok then 
begin 

taprev (nodes, current_node, current_node_name) ; 
if not ok then 

current_node_name := null_string 

end 
end ; 



{ 

Procedure name : ADD_NODE 

Purpose : this procedure adds new node record to 
the current scenario node file. 



Parameters : CURRENT_NODE - record containing the 
data for the node being added. 

CURRENT_NODE_NAME - string containing the name 
of the node being added. 



Called by : UPDATE_NODE_DATA 



) 

procedure add_node (var current_node : node_record; 

var current_node_name : strings) ; 



var 

node_data : node_record; 
done : boolean; 

begin 

done := false; 

node_data := default_node ; 

repeat 

edit_node_screen (node_data, add_record) ; 
if (key = f2) and (node_data . node_name <> null_string) 
then 

begin 

ta insert (nodes, node_data, node_data . node_name) ; 
if not ok then 
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display_error_message ('RECORD ERROR', 

null_string, 'a node 

already exists', 

'with this name', 

null_string) 

else 

begin 

taread (nodes, node_data, node_data . node_name , 
exactmatch) ; 

current_node := node_data; 

current_node_name : = current_node . node_name ; 
taflush (nodes) ; 
done := true 
end 

end 

else if (key = f2) and (node_data. node_name = 
null_string) then 

display_error_message ('RECORD ERROR', 

null_string, 'node must have a 

name ' , 

'before it can be saved', 

null_string ) 
else 

done ;= true 
until done; 
key := null 
end; 

(************************************************) 

{ 

Procedure name : DELETE_NODE 

Purpose ; this procedure deletes a node record 
from the current scenario node file. 



Parameters : CURRENT_NODE - record containing the 
data for the node being deleted. 
CURRENT_NODE_NAME - string containing the name 
of the node being deleted. 



Called by : UPDATE_NODE_DATA 



) 

(★★if*********************************************) 



procedure delete_node (var current_node ; node_record; 

var current_node_name : string5) ; 



var 

next_node : node_record ; 
next_node_name : strings ; 

(************************************************) 
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{ 

Procedure name : VERIFY 

Purpose : this procedure prompts the player for 
a yes or no to verify the action that he last 
selected . 



Parameters : none. 



Called by : DELETE_NODE 



} 

(****************** 1 ^*****************************) 
function verify : boolean; 



var 

number_of_f ields : integer; 
field_list : field_array; 

begin 

number_of_f ields := 1; 
with f ield_list [ 1 ] do 
begin 

label_string ;= 'Are you sure (Y/N) ?'; 
label_x := 28; label_y := 12; 
str_val := 'N'; 

xl := 50; yl := 12; x2 := 50; y2 := 12; 
field_type := ch; valid_char_set := ['Y','N']; 
end; 

save_screen ; 

draw_window (21,10,60,14, blue, lightgray, null_string) ; 
shade_window (21,10,60,14, black); 
edit_screen (number_of_f ields , field_list, not 
abort_al lowed) ; 

verify := field_list[l] .str_val[l] = 'Y'; 
key := null; 
restore_screen 
end ; 

begin 

if (current_node_name <> null_string) and verify then 
begin 

get_next_node (next_node, next_node_name) ; 
tadelete (nodes, current_node_name) ; 

taread (nodes, current_node, next_node_name , exactmatch) 
if ok then 

current_node_name : = current_node . node_name 
else 

current_node_name := null_string; 
taflush (nodes) 
end 
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end ; 



^************************************************) 

{ 

Procedure name : EDIT_NODE 

Purpose : this procedure allows the player to 
edit a node in the current scenario node file. 



Parameters : CURRENT_NODE - record containing the 
data for the node being edited. 

CURRENT_NODE_NAME - string containing the name 
of the node being edited. 



Called by : UPDATE_NODE_DATA 



} 

procedure edit_node (var current_node : node_record; 

var current_node_name : strings) 



begin 

edit_node_screen (current_node, edit_record) ; 
taupdate (nodes, current_node, current_node.node_name) 
taflush (nodes) ; 
key := null 
end ; 



(************************************************) 

{ 

Procedure name : FIND_NODE 

Purpose : this procedure allows the player to 
find a node in the current scenario node file. 



Parameters : CURRENT_NODE - record containing the 
data for the node being searched for. 
CURRENT_NODE_NAME - string containing the name 
of the node being searched for. 



Called by : UPDATE_NODE_DATA 



) 

(************************************************) 
procedure find_node (var current_node : node_record; 

var current_node_name : strings) 



var 

node_data : node_record; 
search_string : strings; 



(************************************************) 

{ 



191 



Procedure name : GET_SEARCH_STRING 

Purpose : this procedure prompts the player for 
the name of the node that he wants to find. 



Parameters : none. 



Called by : FIND_NODE 



) 

(★★★★*************★****★★★★★★★★★★★★**★★★★*★★★★***) 
function get_search_string ; strings; 



var 

number_of_f ields : integer; 
field_list : field_array; 

begin 

number_of_f ields := 1; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Node to search for 
label_x := 26; label_y := 12; 
str_val := null_string; 

xl := 48; yi := 12; x2 := 52; y2 := 12; 
field_type ;= strg; 
end ; 

save_screen ; 

draw_window (21,10,60,14, blue, lightgray, null_string) ; 
shade_window (21,10,60,14, black); 
edit_screen (number_of_f ields, field_list, not 
abort_allowed) ; 

get_search_string := upper_case (field_list[l] .str_val) ; 
key := null; 
restore_screen 
end ; 

begin 

search_string ;= get_search_string; 
if search_string <> null_string then 
begin 

taread (nodes, node_data, search_string , partialmatch) 
if ok then 
begin 

current_node : = node_data ; 

current_node_name ;= current_node.node_name 
end 

end 
end ; 

begin 

initialize node fields; 
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Page Down - 



save_screen ; 
clear_area {2, A, 19, 22); 
display_edit_list_help_line; 
center_text (24, 'Page Up - next node 
previous node', red); 
center_text (5, 'Node data', cyan); 
get_first_node (current_node, current_node_name) ; 
repeat 

save_screen ; 
clear_area (2,6,79,22); 

if current_node_name <> null_string then 
display_node_data ( current_node) 
else 

center_text (14, 'There are currently no nodes in the 
database', white); 
key := get_key; 
case key of 

home_key ; get_f irst_node (current_node , 
current_node_name) ; 

page_up : get_next_node 
current_node_name) ; 

page_down ; get_prev_node 
current_node_name) ; 

f4 ; print_screen; 

f5 ; add_node 

current_node_name) ; 

f6 ; delete_node 

current_node_name) ; 

f7 : edit_node 

current_node_name) ; 

f8 : find_node 

cur rent_node_name ) 
end; 

restore_screen 
until key = escape; 
restore_screen 
end; 

(************************************************) 

{ 

Procedure name ; UPDATE_PATH_DATA 

Purpose : this procedure allows the player to 
view, change, or print the path data that is 
part of the current scenario. 

Parameters : none. 



( current_node , 
( cur rent_node , 

( current_node , 
( current_node , 
( cur rent_node , 
( cur rent_node , 



Called by ; VIEW_SCENARIO 



} 

(************************************************) 
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procedure update_path_data ; 



var 

current_path : path_record ; 
current_path_name ; strings ; 

{ 

Procedure name : INITIALIZE_PATH_FIELDS 

Purpose : this procedure initializes the data 
that describes the fields for displaying the 
path data. 

Parameters : none. 



Called by : UPDATE_PATH_DATA 



} 

procedure initialize_path_f ields ; 



begin 

number_of_f ields := 8; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Path name 

label_x := 15; label_y := 6; 

xl := 58; yl := 6; x2 := 62; y2 := 6; 

field_type := strg 

end; 

with f ield_list [ 2 ] do 
begin 

label_string := 'Start node :'; 

label_x := 15; label_y := 8; 

xl := 58; yl := 8; x2 := 62; y2 := 8; 

field_type ;=• strg 

end; 

with f ield_list [ 3 ] do 
begin 

label_string := 'End node :'; 

label_x := 15; label_y := 10; 

xl ;= 58; yl := 10; x2 := 62; y2 := 10; 

field_type := strg 

end; 

with f ield_l ist [ 4 ] do 
begin 

label_string := 'Length (kilometers) :'; 
label_x := 15; label_y := 12; 
xl ;= 58; yl := 12; x2 := 63; y2 := 12; 
field_type := float; f loat_min_value := 0.0; 
float max value := 500.0 
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end; 

with field_list [5] do 
begin 

label_string := 'Road condition ( Poor/Med ium/ Good) 

label_x := 15; label_y := 14; 

xl ;= 58; yl ;= 14; x2 ;= 58; y2 := 14; 

field_type := ch; valid_char_set := 

end; 

with field_list [6] do 
begin 

label_string := 'Bridges on path (Yes/No) :'; 
label_x := 15; label_y := 16; 
xl := 58; yl := 16; x2 ;= 58; y2 ;= 16; 
field_type := ch; valid_char_set ;= ['Y','N'] 
end; 

with field_list [7 ] do 
begin 

label_string := 'Bridge location (grid) 

label_x := 15; label_y := 18; 

xl := 58; yl := 18; x2 := 67; y2 := 18; 

field_type := strg 

end ; 

with f ield_list [8 ] do 
begin 

label_string := 'Vulnerability (High/Medium/Low) : 
label_x := 15; label_y := 20; 
xl := 58; yl := 20; x2 := 58; y2 := 20; 
field_type := ch; valid_char_set ;= [ 'H' , 'M' , 'L' ] 
end 
end ; 



(************************************************) 

{ 

Procedure name : DISPLAY PATH DATA 



Purpose : this procedure uses the data that 
describes the fields for displaying the 
path data and uses it to display a path's data. 

Parameters : PATH_DATA - record containing the 
data for the path to be displayed. 



Called by : UPDATE_PATH_DATA 



} 

^'k'k'kic'k'k'k'k'k'k'kic'k'k'k’kicic'k'k-k-k-k-k-k-kit'k'k'kic'k’k'k'k'k’k’k’k'k-k'k'k-k-k-k’k'k'^ 

procedure display_path_data (path_data : path_record) 



var 

i : integer; 
begin 
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with path_data do 
begin 

field_list[l] . str_val := path_name; 
field_list[2] .str_val := start_node; 
f ield_list [ 3 ] . str_val := end_node; 
str (length: 3:1, field_list[4] .str_val) ; 
field_list[5] .str_val := road_condition ; 
field_list [6] . str_val := bridge; 
field_list [7] . str_val := bridge_grid; 
f ield_list [8] . str_val := vulnerability 
end; 

for i := 1 to number_of_f ields do 
with field_list[i] do 
begin 

put_string (label_x, label_y, label_string) ; 

put_string (xl, yl, str_val) 

end 

end; 



(************************************************) 

{ 

Procedure name : EDIT_PATH_SCREEN 

Purpose : this procedure uses the data that 
describes the fields for displaying the 
path data and uses it to display a path's data 
and allow it to be changed. 

Parameters : PATH_DATA - record containing the 
data for the path to be displayed. 

NEW_RECORD - boolean record indicating whether 
a new path is being entered or an existing one 
is being modified. 



Called by : EDIT_PATH 



) 

^^■k'k'k'k-k-k'k-k-k’k-k-k-kic-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-krk'j 

procedure edit_path_screen (var path_data : path_record; 
new_record : boolean) ; 



var 

temporary_f ield : f ield_record; 
error_code : integer; 
i : integer; 

begin 

save_screen; 
if new_record then 

display_add_record_help_line 

else 

display_edit_screen_help_line ; 
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clear_area (2,6,79,22); 
clear_area (1,24,80,24); 
with path_data do 
begin 

field_list[l] .str_val := path_name; 
field_list[2] ,str_val := start_node; 
field_list[3] .str_val := end_node; 
str (length: 3:1, f ield_list [4 ] . str_val) ; 
field_list[5] .str_val := road_condition; 
f ield_list [ 6] . str_val := bridge; 
field_list[7] ,str_val := bridge_grid; 
field_list[8] .str_val := vulnerability 
end; 

if new_record then 

edit_screen (number_of_f ields , field_list, abort_allowed) 

else 

begin 

with field_list [ 1] do 
begin 

put_string (label_x, label_y, label_string) ; 

put_string (xl, yl, str_val) 

end; 

temporary_f ield := field_list[l] ; 
for i := 2 to number_of_f ields do 

field_list[i - 1] := field_list[i] ; 
deer (number_of_f ields) ; 

edit_screen (number_of_f ields , field_list, not 
abort_allowed) ; 

incr (nuinber_of_f ields) ; 
for i := number_of_f ields downto 2 do 
f ield_list [ i] := field_list[i - 1]; 
field_list[l] := temporary_f ield 
end; 

with path_data do 
begin 

path_name := upper_case (field_list[l] .str_val) ; 

start_node := upper_case (field_list[2] .str_val) ; 

end_node := upper_case (field_list[3] .str_val) ; 

val (f ield_list [ 4 ] . str_val , length, error_code) ; 
road_condition := f ield_list [5] . str_val [ 1 ] ; 
bridge := f ield_list [ 6] . str_val [ 1] ; 

bridge_grid := f ield_list [7] . str_val ; 
vulnerability := field_list[8] .str_val[l] 
end; 

restore_screen 
end ; 

(************************************************) 

{ 

Procedure name : GET FIRST PATH 
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Purpose : this procedure retrieves the first path 
from the current scenario path file. 

Parameters : PATH_DATA - record containing the 
data for the path being retrieved. 
CURRENT_PATH_NAME - string containing the name 
of the path being retrieved. 



Called by : UPDATE_PATH_DATA 



} 

procedure get_f irst_path (var current_path : path_record; 

var current_path_name : strings) 



begin 

tareset (paths) ; 

tanext (paths, current_path, current_path_name) ; 
if not ok then 

current_path_name := null_string 
end; 



(************************************************) 

{ 

Procedure name : GET_NEXT_PATH 

Purpose : this procedure retrieves the next path 
from the current scenario path file. 



Parameters : PATH_DATA - record containing the 
data for the path being retrieved. 
CURRENT_PATH_NAME - string containing the name 
of the path being retrieved. 



Called by : UPDATE_PATH_DATA 



} 

procedure get_next_path (var current_path : path_record; 

var current_path_name : strings) ; 



begin 

tanext (paths, current_path, current_path_name) ; 
if not ok then 
begin 

tanext (paths, current_path, current_path_name) ; 
if not ok then 

current_path_name := null_string 

end 
end ; 



r 
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{ 

Procedure name : GET PREV PATH 



Purpose : this procedure retrieves the previous 
path from the current scenario path file. 

Parameters : PATH_DATA - record containing the 
data for the path being retrieved. 
CURRENT_PATH_NAME - String containing the name 
of the path being retrieved. 



Called by : UPDATE_PATH_DATA 



} 

^************************************************'1 
procedure get_prev_path (var current_path : path_record; 

var current_path_name : strings) 



begin 

taprev (paths, current_path , current_path_name) ; 
if not ok then 
begin 

taprev (paths, current_path , current_path_name) ; 
if not ok then 

current_path_name := null_string 

end 

end; 



(^**************-k*********************************'^ 

{ 

Procedure name : ADD PATH 



Purpose : this procedure adds new path record to 
the current scenario path file. 



Parameters : CURRENT_PATH - record containing the 
data for the path being added. 

CURRENT_PATH_NAME - string containing the name 
of the path being added. 



Called by : UPDATE_PATH_DATA 



} 

(^************************************************'^ 
procedure add_path (var current_path : path_record; 

var current_path_name : strings) ; 



var 

path_data : path_record ; 
done : boolean; 



begin 

done := false; 
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path_data := default_path; 
repeat 

edit_path_screen (path_data, add_record) ; 
if (key = f2) and (path_data. path_name <> null_string) 
then 

begin 

tainsert (paths, path_data, path_data.path_name) ; 
if not ok then 

display_error_message ('RECORD ERROR', 

null_string, 'a path 

already exists', 

'with this name', 

null_string) 

else 

begin 

taread (paths, path_data, path_data . path_name , 
exactmatch) ; 

current_path := path_data; 

current_path_name := current_path . path_name ; 
taflush (paths) ; 
done := true 
end 

end 

else if (key = f2) and (path_data.path_name = 
null_string) then 

display_error_message ('RECORD ERROR', 

null_string, 'path must have a 

name' , 

'before it can be saved', 

null_string ) 
else 

done := true 
until done; 
key := null 
end ; 



(************************************************) 

{ 

Procedure name : DELETE PATH 



Purpose : this procedure deletes a path record 
from the current scenario path file. 

Parameters : CURRENT_PATH - record containing the 
data for the path being deleted. 
CURRENT_PATH_NAME - String containing the name 
of the path being deleted. 



Called by : UPDATE_PATH_DATA 



) 
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procedure delete_path (var current_path : path_record; 

var current_path_name : strings) 



var 

next_path : path_record ; 
next_path_name : strings ; 

(★*******★★**★★*****★★★★***★★★★**★★★★★*******★*★★) 

{ 

Procedure name : VERIFY 

Purpose : this procedure prompts the player for 
a yes or no to verify the action that he last 
selected . 

Parameters : none. 



Called by : DELETE_PATH 



} 

(★*★*********************★*★**********★*★★*★*****) 
function verify : boolean; 



var 

number_of_f ields : integer; 
field_list : field_array; 

begin 

number_of_f ields ;= 1; 
with f ield_list [ 1 ] do 
begin 

label_string ;= 'Are you sure (Y/N) ?'; 
label_x ;= 28; label_y := 12; 
str_val := 'N' ; 

xl := SO; yl ;= 12; x2 := SO; y2 := 12; 
field_type := ch; valid_char_set := ['Y','N']; 
end; 

save_screen ; 

draw_window (21,10,60,14, blue, lightgray, null_string) 
shade_window (21,10,60,14, black); 
edit_screen (number_of_f ields, field_list, not 
abort_al lowed) ; 

verify := f ield_list [ 1 ] . str_val [ 1 ] = 'Y'; 
key := null; 
restore_screen 
end ; 

begin 

if (current_path_name <> null_string) and verify then 
begin 

get_next_path (next_path, next_path_name ) ; 
tadelete (paths, current_path_name) ; 
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taread (paths, current_path, next_path_name, exactmatch) 
if ok then 

current_path_name := current_path.path_name 
else 

current_path_name ;= null_string; 
taflush (paths) 
end 
end; 



{ 

Procedure name : EDIT_PATH 

Purpose : this procedure allows the player to 
edit a path in the current scenario path file. 

Parameters : CURRENT_PATH - record containing the 
data for the path being edited. 

CURRENT_PATH_NAME - string containing the name 
of the path being edited. 



Called by : UPDATE_PATH_DATA 



) 

(************************************************) 
procedure edit_path (var current_path : path_record; 

var current_path_name : strings) 



begin 

edit_path_screen (current_path, edit_record) ; 

taupdate (paths, current_path, current_path .path_name) ; 

taflush (paths) ; 

key := null 

end ; 

^ 'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'kif'k'k'k-krk'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k ^ 

{ 

Procedure name : FIND_PATH 

Purpose : this procedure allows the player to 
find a path in the current scenario path file. 

Parameters : CURRENT_PATH - record containing the 
data for the path being searched for. 
CURRENT_PATH_NAME - string containing the name 
of the path being searched for. 



Called by : UPDATE_PATH_DATA 



} 

(★★★*★★★★★★★★★★*★★★★*★**★★★★★★★★★★★★************★) 
procedure find_path (var current_path : path_record; 
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var current_path_name : strings) ; 



var 

path_data : path_record; 
search_string ; strings; 

(★★★★********************************************J 

{ 

Procedure name : GET_SEARCH_STRING 

Purpose : this procedure prompts the player for 
the name of the path that he wants to find. 

Parameters : none. 



Called by : FIND_PATH 



} 

(************************************************) 
function get_search_string : strings; 



var 

number_of_f ields : integer; 
field_list : field_array; 

begin 

number_of_f ields := 1; 
with f ield_list [ 1] do 
begin 

label_string := 'Path to search for 
label_x := 26; label_y := 12; 
str_val := null_string; 

xl := 48; yl := 12; x2 := S2; y2 := 12; 

field_type := strg; 

end; 

save_screen; 

draw_window (21,10,60,14, blue, lightgray, null_string) ; 
shade_window (21,10,60,14, black); 
edit_screen (number_of_f ields, field_list, not 
abort_allowed) ; 

get_search_string ;= upper_case (field_list[l] .str_val) ; 

key := null; 

restore_screen 

end; 

begin 

search_string := get_search_string ; 
if search_string <> null_string then 
begin 

taread (paths, path_data, search_string, partialmatch) 
if ok then 
begin 
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current_path := path_data ; 

current_path_name := current_path.path_name 
end 

end 

end; 



Page Down - 



begin 

initialize_path_f ields ; 
save_screen; 
clear_area (2,4,79,22); 
display_edit_list_help_line ; 
center_text (24, 'Page Up - next path 
previous path', red); 
center_text (5, 'Path data', cyan); 
get_f irst_path (current_path, current_path_name) ; 
repeat 

save_screen ; 
clear_area (2,6,79,22); 

if current_path_name <> null_string then 
display_path_data (current_path) 
else 

center_text (14, 'There are currently no paths in the 
database' , white) ; 
key := get_key; 
case key of 

home_key ; get_f irst_path (current_path , 
current_path_name) ; 

page_up : get_next_path 
current_path_name) ; 

page_down : get_prev_path 
current_path_name) ; 

f4 : print_screen ; 

f5 : add_path 



( current_path , 
( cur rent_path , 



current_path_name) ; 

f6 : delete_path 

current_path_name) ; 

f7 : edit_path 

current_path_name) ; 

f8 ; find_path 

current_path_name) 
end ; 

restore_screen 
until key = escape; 
restore_screen 
end ; 



( current_path , 
( current_path , 
( current_path , 
( current_path , 



begin 

save_screen ; 
clear_area (1,2,80,25); 

draw_window (1,3,80,23, white, blue, 'Scenario / Network'); 
menu xl := 25; 
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menu_yl := 7; 
menu_x2 := 55; 
menu_y2 ;= 19; 
repeat 

choice := menu_selection (null_string, 
information I '+ 



utility ] '+ 

case choice of 

1 ; update_scenario_information; 

2 : update_node_data ; 

3 : update_path_data ; 

4 : network_utility 

end 

until choice = 5; 

menu_xl := menu_xl_default ; 

menu_yl := menu_yl_default ; 

menu_x2 := menu_x2_default ; 

menu_y2 := menu_y2_default ; 

restore_screen 

end; 



begin 

end. 



'Scenario 

'Node data '+ 
'Path data '+ 
'Network 

'Return\' ) ; 
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(************************************************) 

{ 

Unit name : TIMESTEP 

Purpose : this unit contains the procedures that 
conduct all of the actions that occur each 
time step. This includes incrementing the 
game time, processing the events list, firing 
rounds, and attriting forces. 

} 

(************************************************) 
unit timestep; 



interface 

{$!-) 



uses crt, utility, gameutil, global, event, commands, 
taccess, tahigh; 



procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 



check_for_start_of_hostilities ; 
display_sitrep ; 
process_events_l ist ; 
stock_atp ; 

process_f ield_trains ; 
process_ammo_trucks ; 
process_f ire_units ; 
generate_messages ; 



implementation 



const 

fire_unit = 0; 
ammo_truck = 1 ; 
in_position = 0; 
under_fire = 1; 
moving = 2 ; 



^'k'k'k'k'k'k'k'k'k'krk’k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'kic'k-k’k'k'k^ 

{ 

Procedure name : ADD_MESSAGE 

Purpose : this procedure adds a message to the 
message buffer file for display at a later time. 

Parameters : NEW_MESSAGE - message record to be 
added to the buffer. 

Called by : several procedures that generate 
messages throughout this unit. 

} 

(************************************************) 
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procedure add_message (new_message : message_record) 



var 

record_number : longint; 
begin 

addrec (messages, record_number , new_message) ; 

addkey (message_type_index, record_number , 

new_message .message_type) ; 

flushfile (messages) ; 

flushindex (message_type_index) 

end; 



( 

Procedure name : DELETE_MESSAGE 

Purpose : this procedure deletes a message from 
the message buffer after it has been displayed. 

Parameters : RECORD_NUMBER - number of the record 
that corresponds to the message to be deleted. 



Called by ; DISPLAY_MESSAGES 



} 

(************************************************) 
procedure delete_message (record_number : longint) ; 



var 

message : message_record; 
begin 

getrec (messages, record_number , message) ; 

deletekey (message_type_index , record_number , 

message. message_type) ; 

deleterec (messages, record_number) ; 

flushfile (messages) ; 

flushindex (message_type_index) 

end; 



{ 

Procedure name : CHECK_FOR_START_OF_HOSTILITIES 

Purpose : this procedure prompts the user for 
determining whether hostilities have commenced. 

Parameters : none. 



Called by : PLAY_WARGAME 
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} 



procedure check_for_start_of_hostilities ; 
begin 

number_of_f ields := 1; 
with f ield_list [ 1] do 
begin 

label_string := 'Commence hostilities (Yes/No) ?'; 
label_x := 24; label_y := 13; 
str_val ;= 'N'; 

xl ;= 57; yl ;= 13; x2 := 57; y2 := 13; 
field_type := ch; valid_char_set := ['Y','N'] 
end ; 

save_screen ; 

draw_window (18,11,63,15, white, blue, null_string) ; 
display_edit_screen_help_line; 

edit_screen (number_of_f ields , field_list, not 
abort_al lowed) ; 

hostilities_started := f ield_list [ 1] . str_val [ 1] = 'Y'; 

restore_screen 

end ; 



{ 

Procedure name : DISPLAY_SITREP 

Purpose : this procedure displays a sitrep for 
the player with information on the firing units, 
the battalion trains, and the ammo trucks. 



Parameters : none. 



Called by : GENERATE_MESSAGES 
ISSUE COMMAND 



} 

procedure display_sitrep ; 



var 

number_of_screens : integer; 
screen : integer; 



(************************************************J 

{ 

Procedure name ; DISPLAY_FIRING_UNIT_SITREP 

Purpose : this procedure displays a sitrep for 
the fire unit passed as a parameter. 



Parameters : FIRING_UNIT_NUMBER - number of the 
firing unit for which the sitrep will be 
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displayed. 



Called by : DISPLAY_SITREP 



} 

(******************************* ***A*****lk*Tfc*****) 

procedure display_f iring_unit_sitrep (f iring_unit_number : 
integer) ; 



var 

number_string : stringSO; 



begin 

save_screen; 

with f iring_units [ f iring_unit_number ] do 
begin 

center_text (4, 'Firing Unit', blue); 
put_string (20, 6, 'Firing unit name : '); 

put_string (58, 6, firing_unit_name) ; 
if sections_in_operating_condition > 0.0 then 
begin 

put_string (20, 7, 'Location : '); 

put_string (58, 7, location); 
put_string (20, 8, 'Rounds on hand : '); 

str (rounds_on_hand, number_string) ; 
put_string (58, 8, number_string) ; 
put_string (20, 9, 'Ammo status : '); 

put_string (58, 9, ammo_status) ; 
put_string (20, 10, 'Rounds fired from current 
position : '); 

str (rounds_f ired_f rom_position , number_string) ; 
put_string (58, 10, number_string) ; 

put_string (20, 11, 'Time in position (hours) ; '); 

str ( (time_in_position / 60):4:2, number_string) ; 
put_string (58, 11, number_string) ; 

put_string (20, 12, 'Firing sections still operating 

') ; 



str ( sect ions_in_operat ing_condition : 4 : 2 , 
number_string) ; 

12 , 

13, 

13, 

14, 



put_string 
put_string 
put_string 
put_string 
put_string 
end 
else 

center_text 
end ; 



(58, 

( 20 , 

(58, 

( 20 , 

(58, 



number_string) ; 
'Status : '); 

f iring_status) ; 
'Vulnerability 






14, vulnerability_status) 



(8, 'KILLS D', blue) 



key : = get_key ; 
restore_screen 
end ; 
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( 

Procedure name : DISPLAY_AMMO_TRUCK_SITREP 

Purpose : this procedure displays a sitrep for 
the range of ammo trucks passed as parameters. 

Parameters : FIRST_TRUCK - number of the first 
truck to be displayed. 

LAST_TRUCK - number of the last truck to be 
displayed. 



Called by ; DISPLAY_SITREP 



) 

(^************************************************) 
procedure display_ammo_truck_sitrep ( f irst_truck, 

; integer) ; 



last truck 



var 

truck : integer; 
percent : string6; 



begin 

save_screen ; 

center_text (4, 'Ammo Trucks', blue); 
center_text (6, 

'Bumper Convoy Mission Unit to Full/ 
Location Effective', blue) ; 
center_text (7, 

' # resupply empty 

% ' , blue) ; 

center_text (8, 

/ 



/ ^ blue) ; 

for truck := first_truck to last_truck do 
with ammo_t rucks [truck] do 
begin 

put_string (5, 9 + truck - first_truck, 
bumper_number) ; 

if not killed then 

begin 

put_string (15, 9 + truck - first_truck, 
convoy_name) ; 

put_string (27, 9 + truck - first_truck, 
mission_assigned) ; 

put_string (37, 9 + truck - first_truck, 
f iring_unit_to_resupply ) ; 

put_string (49, 9 + truck - first_truck, 
load_status) ; 

put_string (58, 9 + truck - first_truck, location); 
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str (ef fective_percent : 4 : 2 , percent); 
put_string (70, 9 + truck - first_truck, percent) 
end 
else 

put_string (22, 9 + truck - first_truck, 'K I L L E 
D') 

end; 

key ; = get_key ; 

restore_screen 

end; 

{ 

Procedure name : DISPLAY_TRAINS_SITREP 

Purpose : this procedure displays a sitrep for 
the battalion trains. 

Parameters : none. 



Called by : DISPLAY_SITREP 



} 

(************************************************) 
procedure display_trains_sitrep; 



begin 

save_screen; 

center_text (4, 'Field Trains', blue); 

center_text (6, 'Location ; '+ battalion_trains. location, 

blue) ; 

key := get_key; 
restore_screen 
end ; 

begin 

save_screen; 
clear_area (1,2,80,25); 

draw_window (1,2,80,25, blue, lightgray, 'SITREP'); 
center_text (23, 'page up - next screen page down - 

previous screen' , red) ; 

center_text (24, 'hit ESC when done viewing sitrep', red); 
if number_of_ammo_trucks > 12 then 

number_of_screens := number_of_f iring_units + 3 
else 

number_of_screens := number_of_f iring_units + 2; 
screen : = 1 ; 
repeat 

if screen in [1. .number_of_firing_units] then 
display_f iring_unit_sitrep (screen) 
else if screen = number_of_f iring_units + 1 then 
display_trains_sitrep 
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else if screen = number_of_f iring_units + 2 then 
begin 

if nuinber_of_ainino_t rucks < 12 then 
display_ammo_truck_sitrep (1, 
nuinbe r_o f _ammo_t rucks ) 
else 

display_ainino_truck_sitrep (1, 12) 

end 

else 

display_anuno_truck_sitrep (13, number_o f_aituno_t rucks ) ; 

if key = page_up then 
begin 

if screen = number_of_screens then 
screen := 1 
else 

incr (screen) 

end 

else if key = page_down then 
begin 

if screen = 1 then 

screen := nuinber_of_screens 
else 

deer (screen) 

end 

else if key = 113 shl 8 then 
check_event_l ist 
until key = escape; 
restore_screen 
end ; 

(************************************************) 

{ 

Procedure name : AMOUNT_OF_ATTRITION 

Purpose : this procedure determines the rate of 
attrition of all units during the game based on 
the parameters passed. 

Parameters : UNIT_TYPE - indicates whether the 
unit to be attrited is a truck or fire unit. 

UNIT_NUMBER - indicates which fire unit or 
truck is to be attrited. 

UNIT_POSTURE - indicates the current posture 
of the unit to be attrited. 

Called by ; PROCESS_FIELD_TRAINS 
PROCESS_AMMO_TRUCKS 
PROCESS_FIRE_UNITS 

} 

(************************************************) 
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function amount_of_attrition (unit_type : integer; 

unit_number ; integer; 
unit_posture : integer) : 

real ; 
type 

alpha_array = array [ f ire_unit . . aimo_truck] of 

array [in_pos it ion. .moving] of real 

const 

alpha_air : alpha_array = ( (0.000005, 0.000005, 
0.0000025) , 

( 0 . 00001 , 0 . 00001 , 

0.000005) ); 

alpha_arty : alpha_array = ( (0.000004, 0.000004, 
0 . 000002 ) , 

(0.000008, 0.000008, 

0.000004) ); 
var 

temp_node : node_record ; 
temp_path ; path_record ; 
casualties__per_minute : real; 

function y_air : integer; 

var 

y : integer; 
begin 

if day_time then 
y := 2 
else 

y := 1; 

case unit_posture of 

in_position, under_fire ; 
begin 

with temp_node do 
begin 

case position_type of 
'R' ; y :=y+2; 

'U' : y ;= y + 1 

end; 

case cover_concealment of 
'L' : y := y + 3; 

' M ' : y : = y + 2 ; 

'H' ; y ;= y + 1 

end 

end; 

if unit_type = fire_unit then 

with f iring_units [unit_number] do 
begin 
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case vulnerability_status of 
' H ' : y : = y + 3 ; 

'K' : y : = y + 2 ; 

'L' : y := y + 1 

end ; 

if unit_posture = under_fire then 
case f iring_status of 
'M' : y : = y + 2 ; 
else 

y := y + 1 

end 

end 

else 

with ammo_trucks [unit_nuxtiber ] do 
begin 

case vulnerability_status of 
' H ' ; y : = y + 3 ; 

'M' : y := y + 2; 

'L.' : y := y + 1 

end ; 

if unit_posture = under_fire then 
case moving of 

false : y := y + 2; 
true : y := y + 1 

end 

end 

end ; 

moving : 

with temp_path do 

case vulnerability of 
'H' : y := y + 3; 

' M ' : y : = y + 2 ; 

'L' : y := y + 1 

end 

end ; 

y_air := y 
end ; 

function y_arty : integer; 
var 

y : integer; 
begin 

y •= 

y_arty ; = y 
end; 

begin 

case unit_type of 
fire unit : 
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begin 

if unit_posture in [ in_position, under_fire] then 
taread (nodes, temp_node, 

f iring_units [unit_nuniber ] . location, 

exactmatch) 

else 

taread (paths, temp_path, 

f iring_units[unit_number] . location, 

exactmatch) ; 

with f iring_units [unit_number ] do 
casualties_per_minute := 
sect ions_in_operating_condit ion * 

( (alpha_air [unit_type] [unit_posture] * y_air) 

+ 

(alpha_arty [unit_type] [unit_posture] * y_arty) 

) 

end ; 

ammo_truck : 
begin 

if unit_posture in [ in_position, under_fire] then 
taread (nodes, temp_node, 

ammo_trucks [unit_number ] . location, 

exactmatch) 

else 

taread (paths, temp_path, 

ammo_trucks [unit_number ] . location, 

exactmatch) ; 

with ammo_trucks [unit_number ] do 

casualties_per_minute := ef fective_percent * 

( (alpha_air [unit_type] [unit_posture] * y_air) 

+ 



) 



(alpha_arty [unit_type] [unit_posture] 



end 



end ; 

amount_of_attrition := casualties_per_minute * 

game_parameters . time_step_size 

end; 



* y_arty) 



(************************************************) 

{ 

Procedure name : PROCESS_EVENTS_LIST 

Purpose ; this procedure reads events from the 
events list and determines if it is time to 
execute that particular event and does so if 
the time is current. 

Parameters : none. 

Called by : EXECUTE_NEXT_TIME_STEP 
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} 

procedure process_events_list ; 



var 

current_dtg : stringl5; 
last_time_to_process : stringlO; 
next_time_key : stringlO; 
record_number : longint; 
event : event record; 



(★★★★★★★★★★★★★★★★********************************) 

{ 

Procedure name : UNIT_ALIVE 

Purpose : this procedure determines whether or 
not a unit is still alive before it processes 
an event record for that unit. 



Parameters : EVENT - event to be processed. 



Called by ; PROCESS_EVENTS_LIST 



} 

function unit_alive (event : event_record) : boolean; 



begin 

case event . unit_type of 

'T' : unit_alive := true; 

'A' : with ammo_trucks [ truck_number (event . unit_name) ] do 
unit_alive := not killed; 

'F' : with f iring_units [unit_number (event .unit_name) ] do 

unit_alive := (sections_in_operating_condition > 

0 . 0 ) 
end 
end ; 



{ 

Procedure name : OCCUPY_NODE 

Purpose : this procedure handles an occupy node 
event . 

Parameters ; EVENT - event to be processed. 
Called by ; PROCESS_EVENTS_LIST 



( 



'k'k'k'k’k-k-k-k’k'k'k'k'k'k’k-kic'k'k'k'kic'k'k'k'k'k'k'k'k'k'k-k'k'k'k-k'k'kic-k-k-k-k’k'krk'k 



} 

) 
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procedure occupy_node (event : event_record) ; 
begin 

case event .unit_type of 
'T' : begin 

battalion_trains . location := event. node; 

battalion_trains. moving := false 

end; 

'A' ; with ammo_trucks [truck_number ( event. un i t_name ) ] do 
begin 

location := event. node; 

moving := false 

end; 

'F' : with f iring_units [unit_number (event . uni t_name) ] do 
begin 

location := event. node; 
if rounds_on_hand > 0 then 
f iring_status := 'H' 
else 

f iring_status := 'C' 

end 

end 

end; 

(************************************************) 

{ 

Procedure name : TRANS IT_NODE 

Purpose : this procedure handles a transit node 
event. 



Parameters : EVENT - event to be processed. 



Called by : PROCESS_EVENTS_LIST 



) 

(************************************************) 
procedure transit_node (event : event_record) ; 



begin 

case event. unit_type of 

'T' ; battalion_trains . location := event. path; 

'A' : with ammo_trucks [ truck_number (event. uni t_name ) ] do 

location := event. path; 

'F' ; with f iring_units [unit_number (event . uni t_name) ] do 
location := event. path 

end 

end; 
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{ 

Procedure name : WAIT_AT_NODE 

Purpose : this procedure handles a wait at node 
event . 

Parameters : EVENT - event to be processed. 
Called by : PROCESS_EVENTS_LIST 



} 

procedure wait_at_node (event : event_record) ; 



begin 

case event . unit_type of 

'T' : battal ion_trains . location := event. node; 

'A' : with ammo_t rucks [truck_number (event . unit_name) ] do 

location := event. node; 

'F' ; with f iring_units [unit_number (event . unit_name) ] do 



location := event. node 

end 
end ; 



(************************************************) 

{ 



Procedure name : DEPART_NODE 

Purpose ; this procedure handles a depart node 
event . 

Parameters : EVENT - event to be processed. 
Called by ; PROCESS_EVENTS_LIST 



} 

(************************************************) 
procedure depart_node (event : event_record) ; 



var 

capacity : integer; 
temp_node : node_record ; 
temp_path : path_record ; 

begin 

case event. unit_type of 

'T' : with battalion_trains do 
begin 

location := event. path; 
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time_in_position := 0; 
vulnerability_status := ’K‘; 
moving ; = true 
end; 

'A' ; with ammo_trucks [ truck_number (event . uni t_name) ] do 
begin 

location := event. path; 

taread (paths, temp_path, event. path, 

exactmatch) ; 

vulnerability_status := temp_path. vulnerability ; 

moving := true 
end ; 

'F' : with f iring_units [unit_number (event . uni t_name) ] do 
begin 

capacity ;= round 
( sections_in_operat ing_condit ion * 

section_max_rounds_capacity ) ; 

if rounds_on_hand > capacity then 
begin 

taread (nodes, temp_node, location, 

exactmatch) ; 

temp_node . ammo_count : = 

temp_node . ammo_count + (rounds_on_hand - 

capacity) ; 

taupdate (nodes, temp_node, location) ; 
taflush (nodes) ; 
rounds_on_hand := capacity 
end ; 

location := event. path; 
time_in_position := 0; 
rounds_f ired_from_position := 0; 
vulnerability_status := 'A' ; 
f iring_status ;= 'M' 
end 

end 

end; 

(************************************************j 

{ 

Procedure name ; SHOOT 

Purpose ; this procedure handles a shooting 
event. 

Parameters : EVENT - event to be processed. 

Called by ; PROCESS_EVENTS LIST 
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} 

procedure shoot (event : event_record) ; 



^************************************************J 

{ 

Procedure name : DETERMINE_AMMO_STATUS 

Purpose : this procedure determines the units 
ammo status after the firing has occured. 



Parameters : UNIT_NXJMBER - unit that is firing 



Called by ; SHOOT 



) 

(^************************************************) 

procedure determine_ammo_status (unit_number : integer) ; 



begin 

with firing_units [unit_n umber] do 
begin 

if rounds_on_hand <= 0 then 
ammo_status := ' 0 ' 
else if rounds_on_hand > (0.35 * 
sections_in_operating_condition * 

section_max_rounds_capacity ) 

then 

ammo_status := 'S' 
else if rounds_on_hand < (0.1 * 
sect ions_in_operating_condit ion * 

section_max_rounds_capacity) 

then 

ammo_status := 'C' 
else 

ammo_status := 'L' 

end 

end; 



begin 

if hostilities_started then 

with f iring_units [unit_number (event . unit_name) ] do 
if f iring_status = 'H' then 
begin 

rounds_on_hand : = rounds_on_hand - 
round (event .volleys * 
sect ions_in_operating_condit ion) ; 

rounds_f ired_from_position := 
rounds_f ired_from_position + 

round (event .volleys * 
sect ions_in_operating_condit ion) ; 
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detennine_aiiiino_status (unit_nuinber 
(event .uni t_name) ) 
end 

end ; 



(************************************************) 

{ 



Procedure name : RETURN_FROM_ATP 

Purpose ; this procedure handles a return from 
the atp event. 

Parameters : EVENT - event to be processed. 
Called by ; PROCESS_EVENTS_LIST 



} 

(**★*★★****★★★★★**★**★*★**★*******★*******★***★**) 
procedure return_from_atp (event : event_record) ; 



var 

new_message ; message_record ; 

(************************************************) 

{ 

Procedure name : CREATE_MESSAGE 

Purpose : this procedure creates a message and 
puts it in the buffer if a truck has returned 
from the atp and the trains have moved. 



Parameters 

returned 



: TRUCK_NUMBER - truck that has 
to trains location. 



Called by : RETURN_FROM_ATP 



) 

procedure create_message (truck_number : integer) ; 



var 

new_message : message_record ; 
message : message_record ; 
record_number : longint; 
message_exists : boolean; 
key : char; 



begin 

with ammo_t rucks [truck_number] do 
begin 

new_message.message_type := '8'; 
if convoy_name = null_string then 
begin 
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new_message . unit_type ;= 'A'; 
new_message . unit_name := bumper_number 
end 
else 

begin 

new_message ,unit_type := 'C'; 
new_message .unit_name := convoy_name 
end ; 

new_message. location := location 
end ; 

message_exists := false; 
clearkey (message_type_index) ; 
key : = ' 8 ' ; 

nextkey (message_type_index , record_number , key) ; 
while ok and not message_exists do 
begin 

getrec (messages, record_number , message) ; 
if message. unit_name = new_message.unit_name then 
message_exists := true; 

nextkey (message_type_index, record_number , key) 
end ; 

if not message_exists then 
add_message (new_message) 
end ; 



begin 

with ammo_trucks [ truck_number (event. unit_name) ] do 
begin 

location := event. node; 
moving := false; 

if atp_rounds_on_hand >= round (ammo_capacity * 
ef fective_percent) then 
begin 

atp_rounds_on_hand : = 

atp_rounds_on_hand - round (ammo_capacity * 
ef fective_percent) ; 

load_status := 'F' 
end ; 

if location <> battalion_trains . location then 

create_message ( truck_number (event . uni t_name) ) 

end 
end ; 



begin 

current_dtg := game_dtg; 
last_time_to_process := 
inc_dtg_to_timekey 

(current_dtg, round (game_parameters . time_step_size / 

2 . 0 ) ) ; 

clearkey (time_index) ; 

nextkey (time_index, record_number , next_time_key) ; 
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while ok and (next_tiine_key <= last_time_to_process) do 
begin 

getrec (event_list, record_number , event) ; 
if unit_alive (event) then 
case event . event_type of 

'O' : occupy_node (event) ; 

'T' : transit_node (event) ; 

'W' : wait_at_node (event) ; 

'D' : depart_node (event) ; 

'F' : shoot (event) ; 

'R' : return_from_atp (event) 
end; 

delete_event (record_n umber) ; 

nextkey (time_index, record_number , next_time_key) 
end 
end ; 

^'k'k'k'k’k’k’k’k'k'k'k'k’k’k'k'k'kic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'^ 

{ 

Procedure name : STOCK_ATP 

Purpose : this procedure determines whether or 
not to restock the atp each time based on the 
start of a new day. 

Parameters ; none. 



Called by : EXECUTE_NEXT_TIME_STEP 



) 

f^itii-k-k'k'kiic’k-k'k'k'k’k-k-k'k'k'kif'k'k’k-k'kif'k'k'k'k'k'k'kif'k'k'k-k'k'k'k'kic'kicic'k-k'k'^ 

procedure stock_atp; 



var 

total_f iring_units : real; 
i : integer; 

begin 

if new_day then 
begin 

total_firing_units := 0; 

for i := 1 to number_of_f iring_units do 

total_firing_units := total_f iring_units + 

firing_units[ i] . sections_in_operating_condition 
atp_rounds_on_hand : = 

trunc (commanders_guidance.bn_csr * 
total_f iring_units) 
end 
end; 



(************************************************) 

{ 
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Procedure name : PROCESS_FIELD_TRAINS 

Purpose : this procedure checks the trains each 
time step to determine the vulnerability, if it 
is receiving incomming, and attrition of any 
trucks at the trains location. 



Parameters ; none. 

Called by : EXECUTE_NEXT_TIME_STEP 



) 

(************************************************) 
procedure process_f ield_trains ; 



^************************************************) 

{ 

Procedure name : DETERMINE_VULNERABILTY_LEVEL 

Purpose : this procedure checks the current 
level of vulnerability of the field trains based 
on time in position. 

Parameters : none. 



Called by : PROCESS_FIELD_TRAINS 



} 

procedure determine_vulnerability_level ; 



begin 

with battalion_trains do 
begin 

if time_in_position < 
round 

(commanders_guidance. vulnerability_threshold_time * 60) then 

vulnerability_status := 'A' 
else if time_in_position > 
round 

(commanders_guidance.vulnerability_threshold_time * 60) then 

vulnerability_status := 'H' 
else if time_in_position > 
round 

(commanders_guidance. vulnerability_threshold_time * 60 * 2) 
then 

vulnerability_status := 'C' 

end 
end ; 

^************************************************j 



224 



{ 

Procedure name : CHECK_FOR_INCOMING 

Purpose : this procedure checks the trains level 
of vulnerability to determine if they should 
receive enemy artillery fire. 

Parameters : none. 



Called by ; PROCESS_FIELD_TRAINS 



) 

procedure check_for_incoroing; 



{ 

Procedure name : DISPLACE FOR INCOMING 



Purpose : this procedure prompts the player to 
determine whether the trains and any trucks at 
that location should displace after receiving 
incoming. 



Parameters : none. 



Called by : CHECK_FOR_INCOMING 

) 

(************************************************) 
function displace_for_incoming : boolean; 

begin 

number_of_f ields ;= 1; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Displace (Yes/No) ?'; 
label_x := 30; label_y := 20; 
str_val ;= 'N'; 

xl := 51; yl := 20; x2 := 51; y2 := 20; 
field_type := ch; valid_char_set := ['Y','N'] 
end ; 

save_screen ; 

draw_window (10,15,71,23, blue, lightgray, null_string) ; 
center_text (17, 'Battalion trains are receiving incoming 
artillery fire.', blue); 

center_text (18, 'Request permission for emergency 
displacement. ' , blue) ; 

edit_screen (number_of_f ields, field_list, not 
abort_allowed) ; 

displace_for_incoming ;= f ield_list [ 1 ] . str_val [ 1 ] = 'Y'; 

restore_screen 

end; 
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f^************************************************) 

{ 

Procedure name : DISPLACE_TRAINS 

Purpose ; this procedure creates the event 
records necessary to displace the trains and any 
trucks at the trains if desired by the player. 

Parameters : none. 

Called by ; CHECK_FOR_INCOMING 

) 

(************************************************) 
procedure displace_trains ; 

var 

i : integer; 

displace_event : event_record; 
current_time : stringlS; 

begin 

with displace_event do 
begin 

event_type := 'O'; 
current_time := game_dtg; 

time_key := inc_dtg_to_timekey (current_time, 30) 

node := battalion_trains. location 

end; 

with battalion_trains do 
begin 

displace_event .unit_type := 'T' ; 
displace_event . unit_name := 'TRAIN'; 
moving := true; 
time_in_position := 0; 
vulnerability_status := 'A'; 
add_event (displace_event) 
end; 

for i := 1 to number_of_ammo_t rucks do 
with ammo_trucks[ i] do 

if (not killed) and (location = 
battalion_trains. location) then 
begin 

displace_event .unit_type := 'A'; 

displace_event . unit_name ;= bumper_number ; 

moving := true; 

add_event (displace_event) 

end 

end; 

(^h***********************************************'^ 
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{ 

Procedure name : ASSESS_CASUALTIES 

Purpose : this procedure eill assess casualties 
for any trucks at the trains location when they 
received the incoming artillery fire. 

Parameters : none. 



Called by : CHECK_FOR_INCOMING 

) 

(************************************************) 
procedure assess_casualties ; 



var 

i : integer; 



begin 

for i := 1 to number_of_ammo_trucks do 
with ammo_trucks [ i ] do 

if (not killed) and (location = 
battalion_trains . location) then 
begin 

vulnerability_status := 
battalion_trains . vulnerability_status ; 

ef fective_percent := ef fective_percent - 

amount_of_attrition (ammo_truck, i, under_fire) ; 

if ef fective_percent < 0.0 then 
ef fective_percent := 0.0 

end 

end ; 



begin 

with battalion_t rains do 

if ( (vulnerability_status = 'C') and (random < 0.05)) or 

( (vulnerability_status = 'H') and (random < 0.01)) or 

( (vulnerability_status = 'A') and (random < 0.005)) 

then 

begin 

if displace_for_incoming then 
displace_trains ; 
assess_casualties 
end 

end ; 



(************************************************) 

{ 

Procedure name : PUT_VULNERABILITY_MESSAGE 
Purpose : this procedure will put a message in 
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the buffer if the vulnerability of the trains has 
changed this time step. 

Parameters : none. 

Called by : PROCESS_FIELD_TRAINS 

} 

procedure put_vulnerability_message ; 

procedure create_message ; 

var 

new_message : message_record; 
begin 

with battalion_trains do 
begin 

new_message.message_type := '7'; 
new_message.unit_type := 'T'; 
new_message.unit_name := 'TRAIN'; 
if vulnerability_high then 

new_ message. vulnerability := 'H' 
else 

new_message. vulnerability := 'C' 
end; 

add_message (new_message) 
end ; 

begin 

with battalion_trains do 

case vulnerability_status of 

'A' : if vulnerability_high or vulnerability_critical 

then 

begin 

vulnerability_high := false; 
vulnerability_critical := false 
end ; 

'H' : if not vulnerability_high then 
begin 

vulnerability_critical ;= false; 
vulnerability_high := true; 
create_message 
end; 

'C' : if not vulnerability_critical then 
begin 

vulnerability_high : = false; 
vulnerability_critical := true; 
create_message 
end 

end 
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end; 



begin 

if not battalion_tra ins .moving then 
with battalion_trains do 
begin 

time_in_position := time_in_position + 
game_parameters . time_step_size ; 

determine_vulnerability_level ; 
if hostilities_started then 
check_f or_incoming ; 
put_vulnerability_message 
end 

end; 



(★***********************************************) 

{ 

Procedure name ; PROCESS_AMMO_TRUCKS 

Purpose : this procedure checks the trucks each 
time step to determine if they have completed a 
resupply mission, if they have sufficient rest, 
attrit them if moving, and update their stats. 



Parameters : none. 

Called by : EXECUTE_NEXT_TIME_STEP 



) 

(************************************************) 
procedure process_ammo_trucks ; 



(^******-kit*-k-k*******ifk***-k*************-k********ifk'j 

{ 

Procedure name : ASSESS_CASUALTIES 

Purpose ; this procedure checks the trucks each 
time step to determine if they are moving and if 
so what attrition will be assessed to them. 

Parameters : none. 



Called by : PROCESS_AMMO_TRUCKS 



) 

(************************************************) 
procedure assess_casualties ; 



var 

i : integer; 
begin 

for i := 1 to number of ammo trucks do 
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with airono_trucks [ i ] do 

if (not killed) and moving then 
begin 

ef fective_percent := ef fective_percent - 
amount_of_attrition (ammo_truck, i, 
timestep. moving) ; 

if ef fective_percent <0.0 then 
ef fective_percent := 0.0; 
killed := ( effect ive_percent = 0.0) 
end 

end; 

{ 

Procedure name ; CHECK_FOR_RESUPPLY 

Purpose : this procedure checks the trucks each 
time step to determine if they have completed 
a resupply mission, either to a unit or to a 
node. If so, it creates a message to that 
effect . 

Parameters : none. 



Called by : PROCESS_AMMO_TRUCKS 



) 

(************************************************) 
procedure check_for_resupply ; 



var 



i : integer; 

temp_node : node_record; 
procedure create_message (message_type : char) ; 



var 

new_message : message_record ; 
message : message_record ; 
message_exists : boolean; 
key : char; 

record_number : longint; 
begin 

with ammo_t rucks [ i ] do 
begin 

new_message.message_type := message_type ; 
if convoy_name = null_string then 
begin 

new_message . unit_type := 'A'; 
new_message.unit_name := bumper_number 
end 
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else 

begin 

new_message.unit_type := 'C'; 
new_message.unit_name := convoy_name 
end ; 

if message_type = '1' then 

new_message. location := node_to_resupply 
else 

new_message. location := f iring_unit_to_resupply 
end; 

message_exists := false; 
clearkey (message_type_index) ; 
key := message_type; 

nextkey (message_type_index, record_number , key) ; 
while ok and not message_exists do 
begin 

getrec (messages, record_number , message) ; 
if message. unit_name = new_message .unit_name then 
message_exists := true; 

nextkey (message_type_index, record_number , key) 
end; 

if not message_exists then 
add_message (new_message) 
end ; 

begin 

for i := 1 to number_of_ammo_t rucks do 
with ammo_trucks[i] do 

if (not killed) and (mission_assigned = 'Y') then 
begin 

if (f iring_unit_to_resupply = 'PREPO') and (not 
moving) and 

(node_to_resupply = location) and (load_status 

'F') then 

begin 

load_status := 'E' ; 

taread (nodes, temp_node, node_to_resupply , 

exactmatch) ; 

temp_node . ammo_count ;= temp_node . ammo_count 

+ 

round (ammo_capacity * ef f ective_percent) 

taupdate (nodes, temp_node, location) ; 
taflush (nodes) ; 
create_message ( ' 1 ' ) ; 
mission_assigned := 'N'; 
f iring_unit_to_resupply ;= null_string; 
node_to_resupply := null_string 
end 

else if (not moving) and (load_status = 'F') and 
(f iring_unit_to_resupply <> null_string) and 
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( f iring_units [unit_nuinber 
( f iring_unit_to_resupply) ] . location = 
location) then 
begin 

load_status := 'E'; 
with f iring_units [unit_niamber 
( f iring_unit_to_resupply) ] do 

begin 

rounds_on_hand := rounds_on_hand + 
round (ammo_capacity * 

ef fective_percent) ; 

if f iring_status = 'C' then 
f iring_status ;= 'H' 
end; 

create_message ( ' 2 ' ) ; 
mission_assigned ;= 'N' ; 
f iring_unit_to_resupply := null_string 
node_to_resupply := null_string 
end 

end 

end ; 

(************************************************) 

{ 

Procedure name : CHECK_FOR_REST 

Purpose : this procedure checks the trucks each 
time step to determine if they have accrued 
sufficient rest to accomplish any assigned 
mission. It also updates the amount of rest 
and the time since they began resting. 

Parameters : none. 



Called by ; PROCESS_AMMO_TRUCKS 



) 

procedure check_for_rest ; 



var 

i ; integer ; 
begin 

for i := 1 to number_of_ammo_trucks do 
with ammo_trucks [ i] do 
if not killed then 
begin 

time_since_rest_began := 
time_since_rest_began + 
garoe_parameters . time_step_size ; 

if (not moving) and (mission_assigned = 'N') 



then 
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amount_of_rest := ainount_of_rest + 
game_parameters . t ime_step_size ; 

if amount_of_rest >= 

round (commanders_guidance . crew_rest_per_day * 

60) then 

begin 

time_since_rest_began := 0; 

amount_of_rest ;= 0 

end 

end 

end; 



^************************************************J 

{ 

Procedure name ; CALCULATE_TRUCK_STATS 

Purpose : this procedure updates the amount of 
time that a truck is not available due to 
casualties each time step. 

Parameters : none. 



Called by : PROCESS_AMMO_TRUCKS 



) 

(************************************************) 
procedure calculate_truck_stats ; 



var 

i : integer; 
begin 

for i := 1 to number_of_ammo_t rucks do 
with ammo_trucks [ i ] do 

casualty_time := casualty_time + 

round ((1.0 - ef fective_percent) * 
game_parameters . time_step_size) 
end ; 

begin 

if hostilities_started then 
assess_casualties ; 
check_f or_resupply ; 
check_f or_rest ; 
calculate_truck_stats 
end; 

(************************************************j 

{ 

Procedure name : PROCESS_FIRE_UNITS 

Purpose : this procedure checks the fire units 
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each time step for firing, attrition, ammo 
resupply, and updates it vulnerability, ammo 
status, and statistics. 

Parameters : none. 



Called by : EXECUTE_NEXT_TIME_STEP 



) 

^************************************************) 
procedure process_f ire_units ; 



var 

i : integer; 

(************************************************) 

{ 

Procedure name ; CHECK_FOR_AMMO_RESUPPLY 

Purpose : this procedure checks the fire units 
each time step to determine if they have 
arrived at a node at which they are supposed to 
pick up ammunition. 

Parameters ; none. 



Called by : PROCESS_FIRE_UNITS 



) 

(************************************************) 
procedure check_f or_ammo_resupply ; 



var 

temp_node : node_record ; 
begin 

with firing_units[i] do 

if (ammo_pickup_mission) and (location = 
ammo_pickup_location) then 
begin 

taread (nodes, temp_node, location, exactmatch) 
round s_on_hand := rounds_on_hand + 
temp_node . ammo_count ; 

temp_node . ammo_count : = 0 ; 

taupdate (nodes, temp_node, location) ; 

taflush (nodes) 

end 

end; 



(************************************************) 

{ 

Procedure name : SHOOT ROUNDS 
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Purpose : this procedure checks the fire units 
each time step to have them fire at a rate 
consistent with their ammo status and the 
battalion csr. 



Parameters : none. 



Called by : PROCESS_FIRE_UNITS 

(************************************************ 
procedure shoot_rounds ; 



} 

) 



var 

rounds_to_f ire : integer; 
begin 

with firing_units[i] do 
begin 

rounds_to_f ire ;= trunc (commanders_guidance.bn_csr * 
rate_percent_csr * 

sections_in_operating_condition 

* 

game_parameters . time_step_size / 

(60 * 24) ) ; 

rounds_to_f ire := abs (normal_rv (rounds_to_fire, 5)); 
if round s_to_f ire > 

(sustained_rate_of_f ire * 
sect ions_in_operating_condit ion * 

game_par ameter s . t ime_s tep_s i ze ) then 

rounds_to_f ire ;= trunc (sustained_rate_of_f ire * 

sections_in_operating_condition * 

game_parameters . time_step_size) ; 

if rounds_to_f ire > rounds_on_hand then 
rounds_to_f ire := rounds_on_hand ; 
rounds_on_hand := rounds_on_hand - rounds_to_f ire ; 
rounds_f ired_from_position := rounds_f ired_from_position 
+ rounds_to_f ire ; 

if round s_on_hand <= 0 then 
f iring_status := 'C' 

end 

end; 

(^************************** 1 ,*********************) 

{ 

Procedure name : DETERMINE_VULNERABILITY_LEVEL 

Purpose : this procedure checks the fire units 
each time step to update their vulnerability 
status based on rounds fired from position and 
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time in position. 



Parameters : none. 



Called by : PROCESS_FIRE_UNITS 



) 

procedure determine_vulnerability_level ; 



begin 

with f iring_units [i] , commanders_guidance do 
if (time_in_position < round 
(vulnerability_threshold_time * 60 ) ) and 
(rounds_f ired_from_position < 
vulnerability_threshold_rounds) then 
vulnerability_status := 'h' 
else if (time_in_position < round 
(vulnerability_threshold_time * 60 ) ) and 
(rounds_fired_from_position > 
vulnerability_threshold_rounds) then 
vulnerability_status := 'H' 
else if (time_in_position > round 
(vulnerability_threshold_time * 60 ) ) and 
(rounds_f ired_from_position < 
vulnerability_threshold_rounds) then 
vulnerability_status := 'H' 

else 

vulnerability_status := 'C' 

end ; 



(************************************************) 

{ 

Procedure name : ASSESS_CASUALTIES 

Purpose : this procedure checks the fire units 
each time step to assess casualties based on 
vulnerabilty and whether they are receiving 
incoming this time step. 



Parameters : none. 



Called by : PROCESS_FIRE_UNITS 



} 

procedure assess_casualties ; 



var 

j : integer; 

^'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k’k'k-k-k'k'k'k-k’kick’k'k’k’k-k'k'k'k'k'k'j 

{ 
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Procedure name : CHECK_FOR_INCOMING 

Purpose : this procedure checks the fire units 
each time step to determine whether or not they 
will receive enemy artillery fire and assess 
casualties accordingly. 

Parameters : none . 



Called by : ASSESS_CASUALTIES 



} 

(************************************************) 
procedure check_for_incoming; 



function displace_for_incoming : boolean; 



begin 

number_of_f ields ;= 1; 
with field_list[l] do 
begin 

label_string := 'Displace (Yes/No) ?'; 
label_x := 30; label_y := 20; 
str_val ;= 'N' ; 

xl := 51; yl ;= 20; x2 ;= 51; y2 := 20; 
field_type := ch; valid_char_set ;= ['Y','N'] 
end; 

save_screen; 

draw_window (10,15,71,23, blue, lightgray, null_string) 
center_text (17, 'Firing unit ' + 
firing_units [ i] . f iring_unit_name + 

' is receiving incoming artillery fire 

blue) ; 

center_text (18, 'Request permission for emergency 
displacement. ' , blue) ; 

edit_screen (number_of_f ields, field_list, not 
abort_allowed) ; 

displace_for_incoming ;= f ield_list [ 1 ] . str_val [ 1 ] = 'Y' 

restore_screen 

end; 



procedure displace_f iring_unit ; 
var 

j ; integer; 

displace_event : event_record ; 
current_time ; stringl5; 

begin 

with displace_event do 
begin 

event_type := 'O'; 
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current_time ;= game_dtg; 

time_key ;= inc_dtg_to_time)cey (current_time, 30) ; 

node := firing_units[i] .location 

end; 

with firing_units[i] do 
begin 

displace_event .unit_type ;= 'F'; 

displace_event .unit_name := f iring_unit_name ; 

f iring_status := 'M'; 

time_in_position := 0; 

rounds_f ired_from_position := 0; 

vulnerability_status ;= 'A'; 

add_event (displace_event) 

end; 

for j ;= 1 to number_of_amino_trucks do 
with ammo_trucks [ j ] do 

if (not killed) and (location = 
firing_units[i] . location) then 
begin 

displace_event .unit_type := 'K' ; 

displace_event . unit_name := bumper_number ; 

moving := true; 

add_event (displace_event) 

end 

end ; 

procedure assess_incoming_casualties ; 
var 

j : integer; 
begin 

with firing_units[ i] do 
begin 

sections_in_operating_condition : = 
sections_in_operating_condition - 

amount_of_attrition (fire_unit, i, under_fire) ; 
if sections_in_operating_condition < 0.0 then 
sections_in_operating_condition := 0.0 
end; 

for j : = 1 to number_of_ammo_trucks do 
with ammo_trucks [ j ] do 

if (not killed) and (location = 
firing_units [ i] . location) then 
begin 

vulnerability_status := 
f iring_units [ i ] . vulnerability_status ; 

ef fective_percent ;= ef fective_percent - 

amount_of_attrition (ammo_truck, j, under_fire) 

if ef f ective_percent < 0.0 then 
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ef fective_percent := 0.0 

end 

end; 

begin 

with firing_units[i] do 

if ( (vulnerability_status = *C*) and (random < 0.05)) or 

( (vulnerability_status = 'H') and (random < 0.01)) or 

( (■\rulnerability_status = 'A') and (random < 0.005)) 

then 

begin 

if displace_for_incoming then 
displace_f iring_unit ; 
assess_incoming_casualties 
end 

end; 

begin 

with f iring_units [ i ] do 
begin 

sections_in_operating_condition : = 
sections_in_operating_condition - 

amount_of_attrition (fire_unit, i, in_position) ; 
if sections_in_operating_condition < 0.0 then 
sections_in_operating_condition := 0.0 
end; 

for j := 1 to number_of_ammo_trucks do 
with ammo_t rucks [j ] do 
if (not killed) and 

(ammo_trucks [j ]. location = 
firing_units [ i ]. location) then 
begin 

vulnerability_status := 
f iring_units [ i ] . vulnerability_status ; 

ef fective_percent := ef fective_percent - 
amount_of_attrition (ammo_truck, j, 

in_position) ; 

if ef fective_percent <0.0 then 
ef fective_percent ;= 0.0 
end; 

check_for_incoming 

end; 

"k "k -k "k -k -k "k -k i( ic 'k -k -k -k -k -k -k it "k -k -k -k -k -k -k -k -k it it "k ic -k "k -k -k -k -k -k -k -k "k it "k "k "k "k ^ 

{ 

Procedure name ; PUT_VULNERABILITY_MESSAGE 

Purpose : this procedure will create a message to 
be placed in the buffer if the firing units 
vulnerability level has changed this time step. 
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Parameters : none. 



Called by ; PROCESS_FIRE_UNITS 



} 

(************************************************) 
procedure put_vulnerability_message; 



procedure create_message; 



var 

new_message : message_record; 
begin 

with f iring_units [ i ] do 
begin 

new_message.message_type := '7'; 
new_message.unit_type := 'F'; 
new_message . unit_name ;= f iring_unit_name ; 
if vulnerability_high then 

new_message. vulnerability := 'H' 
else 

new_message .vulnerability := 'C' 
end; 

add_message (new_message) 
end; 

begin 

with firing_units[ i] do 

case vulnerability_status of 

'A' ; if vulnerability_high or vulnerability_critical 

then 

begin 

vulnerability_high := false; 
vulnerability_critical := false 
end; 

'H' : if not vulnerability_high then 
begin 

vulnerability_critical := false; 
vulnerability_high := true; 
create_message 
end; 

'C' : if not vulnerability_critical then 

begin 

vulnerability _high := false; 
vulnerability_critical := true; 
create_message 
end 

end 
end ; 



(************************************************) 
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{ 

Procedure name : DETERMINE_AMMO_STATUS 

Purpose : this procedure will check the firing 
unit each time step in order to update its ammo 
status . 

Parameters : none . 



Called by : PROCESS_FIRE_UNIT 



) 

procedure determine_ammo_status ; 



begin 

with firing_units[ i] do 

if rounds_on_hand > (0.35 * section_max_rounds_capacity * 

sections_in_operating_condition) then 



ammo_status ;= 'S' 
else if rounds_on_hand <= 0 then 
ammo_status := 'O' 
else if rounds_on_hand < (0.1 * 
section_max_rounds_capacity * 

sect ions_in_operating_condit ion) then 

ammo_status ;= 'C' 
else 

ammo_status := 'L' 

end; 



(************************************************) 

{ 

Procedure name ; PUT_AMMO_STATUS_MESSAGE 

Purpose : this procedure will create a message to 
be placed in the buffer if the firing units 
ammo status has changed this time step. 

Parameters : none. 



Called by : PROCESS_FIRE_UNITS 



) 

^************************************************^ 
procedure put_ammo_status_message ; 

procedure create_message ; 

var 



new_message : message_record; 
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begin 

with firing_units[i] do 
begin 

new_message.message_type := '6'; 
new_message.unit_type := 'F'; 
new_message.unit_name := f iring_unit_name ; 
if aiTuno_low then 

new_message . aituno_status := 'h' 
else if aimno_critical then 

new_message . ammo_status := 'C' 
else if amino_out then 

new_message.ainino_status := 'O' 
end ; 

add_message (new_message) 
end; 

begin 

with f iring_units[i] do 
case aniino_status of 

'S' : if ainino_out or aniino_critical or anuno_low then 

begin 

ainino_out := false; 
ainino_critical := false; 
aiiuno_low := false 
end; 

'L' ; if not anuno_low then 

begin 

aimno_low := true; 
aimno_critical := false; 
anuTio_out := false; 
create_message 
end ; 

'C' : if not ammo_critical then 
begin 

ammo_critical := tiue; 
aimno_low := false; 
ainino_out := false; 
create_Tnessage 
end; 

'O' : if not aramo_out then 
begin 

aimno_out := true; 
ammo_low := false; 
aimno_critical := false; 
create_inessage 
end 

end 
end ; 
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{ 

Procedure name : CALCULATE_FIRING_UNIT_STATS 

Purpose : this procedure will update the stats 
for a firing unit each time step based on the 
time that it was critically short ammo, 
critically vulnerable, and time lost due to 
casualties . 



Parameters : none. 



Called by : PROCESS_FIRE_UNITS 



) 

procedure calculate_f iring_unit_stats ; 



begin 

with f iring_units [ i] do 
begin 

if f iring_status = 'H' then 
total_availability_time := 

total_availability_time + round 
(game_parameters . time_step_size * 

sections_in_operating_condition) ; 
if vulnerability_status = 'C' then 
critically_vulnerable_time := 

critically_vulnerable_time + round 
(game_parameters . time_step_size * 

sect ions_in_operating_condit ion) ; 
if ammo_status = ' C’ then 
critically_short_time := 

critically_short_time + round 
(game_parameters . time_step_size * 

sect ions_in_operating_condit ion) 

end 

end; 

begin 

for i := 1 to number_of_f iring_units do 
with f iring_units [ i ] do 

if sections_in_operating_condition > 0.0 then 
begin 

check_f or_ammo_resupply ; 

if (hostilities_started) and ( f iring_status = 'H') 

then 

shoot_rounds ; 

if f iring_status = 'M' then 
begin 

sections_in_operating_condition : = 
sect ions_in_operating_condit ion - 
amount_of_attrition (fire_unit, i, moving) ; 
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if sections_in_operating_condition < 0.0 then 
sections_in_operating_condition ;= 0.0 

end 

else 

begin 

time_in_position := 
time_in_position + 

game_parameters . time_step_size ; 

determine_vulnerability_level ; 
if hostilities_started then 
assess_casualties ; 

if sections_in_operating_condition > 0.0 then 
begin 

put_vulnerability_message ; 
detennine_ainmo_status ; 
put_ainino_status_inessage 
end 
end ; 

calculate_f ir ing_unit_stats 
end 

end; 

(************************************************) 

{ 

Procedure name : GENERATE_MESSAGES 

Purpose : this procedure will display the sitrep 
and message buffer each time step if it is 
required based on desired frequency of sitreps 
and whether or not the message buffer has any- 
thing in it. 

Parameters : none. 



Called by : EXECUTE_NEXT_TIME_STEP 



} 

procedure generate_messages ; 



procedure display_messages ; 



var 

message : message_record ; 
message_type : char; 
record_number ; longint; 
buffer : array [1..8] of string; 
i : integer; 

function message_text (message : message_record) : string; 
var 
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buffer : string; 
begin 

with message do 
begin 

case message_type of 
'1' : begin 

buffer := 'Ammo prepositioned at node ' + 

location; 

if unit_type = 'C then 

buffer := buffer + convoy ' + unit_name + 

' requests orders' 
else 

buffer ;= buffer + ', truck ' + unit_name + ' 
requests_orders ' 
end ; 

'2' : begin 

buffer := 'Ammo delivered to unit ' + location; 
if unit_type = 'C' then 

buffer := buffer + ', convoy ' + unit_name + 

' requests orders ' 
else 

buffer := buffer + ', truck ' + unit_name + ' 
requests_orders ' 
end; 

'3' : begin 

end; 

'4' : begin 
end ; 

'5' ; begin 
end ; 

'6' : begin 

case ammo status of 







'0' : 


buffer := 'Unit 




unit_ 


_name 


+ 


' is out 


of ammo 


; 




















'C' : 


buffer := 'Unit 


' + 


unit_ 


name 




' ammo 


status 


is 


critical ' 


r 
















'L' : 


buffer ;= 'Unit 


' + 


unit_ 


name 


+ 


' ammo 


status 


is 


low' 















end 
end ; 

'7' : begin 

case unit_type of 

'T' : if vulnerability = 'H' then 

buffer := 'Trains have reached high 

vulnerability' 

else 

buffer := 'Trains have reached 

critical vulnerability'; 

'F' : if vulnerability = 'H' then 

buffer := 'Unit '+ unit name + 
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vulnerability' 



/ 



has reached high 



else 

buffer := 'Unit '+ unit_name + 

' has reached critical 

vulnerability' 
end 
end ; 

'8' : begin 

if unit_type = 'C' then 

buffer := 'Convoy ' + unit_name + ' unable to 

locate trains' 

else 

buffer := 'Truck ' + unit_name + ' unable to 

locate trains' 
end 

end 
end ; 

message_text := buffer 
end ; 

procedure display_buf fer ; 
var 

i : integer; 
begin 

save_screen ; 

draw_window (6,14,75,25, blue, lightgray, 'MESSAGES'); 
for i := 1 to 8 do 

put_string (10, 15 + i, buffer[i]); 
center_text (24, 'press any key', red); 
key : = get_key ; 
key := null; 
restore_screen 
end ; 

begin 

clearkey (message_type_index) ; 

nextkey (message_type_index, record_nuinber , message_type) ; 
repeat 

for i := 1 to 8 do 

buffer[i] := null_string; 
i : = 1 ; 

while ok and (i < 8) do 
begin 

getrec (messages, record_number , message) ; 
buffer[i] := message_text (message); 
delete_message (record_number) ; 
incr (i) ; 
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nextkey (message_type_index, record_n umber , 
message_type) 
end; 

if buffer[l] <> null_string then 
display_buf fer 
until not ok 

end; ■ 

begin 

display_messages ; 
time_since_last_sitrep := 

time_since_last_sitrep + game_parameters.time_step_size; 
if time_since_last_sitrep >= 

commanders_guidance.unit_sitrep_f requency then 
begin 

time_since_last_sitrep := 0; 
display_sitrep 
end 
end; 



begin 

end. 
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^************************************************J 

{ 

Unit name : COMMANDS 



Purpose : this unit contains the procedures that 
allow the player to input commands and have 
them executed as is appropriate for each 
command . 

) 

(★********************************************★*★) 
unit commands; 



interface 

{$!-} 

uses dos, crt, utility, gameutil, global, taccess, tahigh; 



procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 



create_truck_convoy ; 
remove_truck_convoy ; 
ammo_resupply_mission; 
cancel_resupply_mission ; 
ammo_truck_ammo_pickup ; 
f ire_unit_ammo_pickup ; 
cancel_f ire_unit_pickup ; 
move_unit ; 
issue_f ire_order ; 
change_f iring_rate ; 
cancel command; 



implementation 



type 

name_array = array [1..24] of strings; 

route_array = array [1..2] of array [1..11] of strings; 

var 

route ; route_array; 
current_path ; integer; 

(************************************************) 

{ 

Procedure name : UNIQUE_CONVOY NAME 



Purpose : this procedure checks a name entered 
for a convoy to insure that it has not been used 
to name a fire unit, truck, or other convoy. 



Parameters : STRING_VALUE - string to be checked. 



Called by : used as a parameter to EDIT_SCREEN 
by CREATE_TRUCK_CONVOY 



) 
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^***********************^************************) 

{$F+} 

function unigue_convoy_naine (string_value : stringSO) : 
boolean; 

var 

convoy_exists : boolean; 
begin 

suppress_messages := true; 

string_value := upper_case (string_value) ; 
convoy_exists := (string_value = null_string) or 

(string_value = 'TRAIN') or 
(truck_n umber (string_value) <> 0) or 
(unit_number (string_value) <> 0) or 
(valid_convoy (string_value) ) ; 
if convoy_exists then 

display_error_message ('INPUT ERROR', null_string, 
null_string, 

'convoy must have a unique name', 

null_string) ; 

unique_convoy_name := not convoy_exists ; 
suppress_messages := false 
end ; 

($F-) 

(************************************************) 

{ 

Procedure name : VALID_AMMO_TRUCK_FOR_CONVOY 

Purpose : this procedure checks a name entered 
to determine whether or not it can be added to 
a new convoy . 

Parameters ; STRING_VALUE - string to be checked. 

Called by : used as a parameter to EDIT_SCREEN 
by CREATE_TRUCK_CONVOY 

} 

(************************************************) 

{$F+} 

function valid_ammo_truck_for_convoy (string_value : 
stringSO) : boolean; 

var 

truck_exists : boolean; 
begin 

suppress_messages := true; 

string_value := upper_case (string_value) ; 
truck_exists := (string_value = null_string) or 
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(valid_amino_truck (string_value) ) ; 
if not truck_exists then 

^ display_error_message ('INPUT ERROR', null_string, 
null_string, 

'amiao truck does not exist', 

null_string) ; 

valid_aTmno_truck_for_convoy := truck_exists ; 
suppress_messages := false 
end ; 

{$F-> 

(************************************************) 

{ 

Procedure name ; VALID_TRUCK_OR_CONVOY 

Purpose ; this procedure checks a name entered 
to determine whether or not it corresponds to 
an existing truck or convoy. 

Parameters : STRING_VALUE - string to be checked. 

Called by : used as a parameter to EDIT_SCREEN 
by AMMO_RESUPPLY_MISSION 

} 

(************************************************) 

{$F+} 

function valid_truck_or_convoy (string_value : stringSO) : 
boolean ; 



var 

truck_or_convoy_exists : boolean; 
begin 

suppress_messages ;= true; 

string_value := upper_case (string_value) ; 

truck_or_convoy_exists ;= valid_ammo_truck (string_value) or 



valid_convoy (string_value) ; 
if not truck_or_convoy_exists then 

display_error_message ('INPUT ERROR', null_string, 

'truck/convoy entered does not 



exist' , 



'or truck is part of a convoy', 

null_string) ; 

valid_truck_or_convoy := truck_or_convoy_exists ; 

suppress_messages := false 

end; 



($F-) 



(************************************************) 

{ 
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Procedure name : VALID_UNIT_TO_RESUPPLY 

Purpose : this procedure checks a name entered 
to determine whether or not it corresponds to 
an existing node or unit to be resupplied. 

Parameters : STRING_VALUE - string to be checked. 

Called by : used as a parameter to EDIT_SCREEN 
by AMMO_RESUPPLY_MISSION 

) 

{$F+) 

function valid_unit_to_resupply (string_value : stringSO) : 
boolean; 

var 

unit_exists : boolean; 
begin 

suppress_messages := true; 

string_value := upper_case (string_value) ; 

unit_exists := (valid_unit (string_value) ) or (string_value 
= 'PREPO'); 

if not unit_exists then 

display_error_message ('INPUT ERROR', null_string, 
null_string, 

'unit entered does not exist', 

null_string) 

else if string_value = 'PREPO' then 
begin 

number_of_f ields ;= 3; 
with f ield_list [ 3 ] do 
begin 

put_string (label_x, label_y, label_string) ; 
if length (str_val) > (x2 - xl + 1) then 
str_val [0] := chr (x2 - xl + 1) ; 
put_string (xl, yl, str_val) 
end 

end 

else 

begin 

number_of_f ields ;= 2; 
f ield_list [ 3 ] . str_val := null_string; 
with field_list[3] do 

put_string (label_x, label_y, ' 

end; 

valid_unit_to_resupply := unit_exists; 

suppress_messages := false 

end; 
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($F-) 



(************************************************) 

{ 

Procedure name : TRUCKS_AT_ATP 

Purpose ; this procedure checks a name entered 
to determine whether or not it corresponds to 
an existing truck or convoy that is at the 
trains and ready to pickup ammo. 

Parameters : STRING_VALUE - string to be checked. 

Called by ; used as a parameter to EDIT_SCREEN 
by AMMO_TRUCK_AMMO_PICKUP 

) 

(************************************************) 

{$F+) 

function trucks_at_atp (string_value : strings 0) : boolean; 
var 

truck_or_convoy_valid : boolean; 
i : integer; 

begin 

suppress_messages := true; 

string_value := upper_case (string_value) ; 

truck_or_convoy_valid := valid_ammo_truck (string_value) or 

valid_convoy (string_value) ; 
if truck_or_convoy_valid then 
begin 

if valid_ammo_truck (string_value) then 
truck_or_convoy_valid := 

(amroo_trucks [ truck_number (string_value) ] .location 

battalion_trains. location) and 
( ammo_trucks [ truck_number 
(string_value) ] . load_status = 'E') and 
( ammo_trucks [ truck_number 
(string_value) ] .mission_assigned = 'N') 
else 

begin 

truck_or_convoy_valid := false; 

for i ;= 1 to number_of_ammo_trucks do 

if (ammo_trucks [ i] . convoy_name = string_value) and 
(ammo_trucks [ i ]. location = 
battalion_trains. location) and 

(ammo_trucks [ i] . load_status = 'E') and 
(ammo_trucks [ i] .mission_assigned = 'N') then 
truck_or_convoy_valid ;= true 

end 



252 



end ; 

if not truck_or_convoy_valid then 

display_error_message ('INPUT ERROR', null_string, 

'truck/convoy entered does not 

exist, ' , 

'is not at trains, has a mission, 

or' , 

'is not out of ammunition'); 
trucks_at_atp := truck_or_convoy_valid; 
suppress_messages := false 
end ; 

($F-) 

^************************************************) 

{ 

Procedure name : TIME_NOT_PAST 

Purpose : this procedure checks a dtg that has 
been entered for a command to insure that it 
has not past. 

Parameters ; STRING_VALUE - dtg to be checked. 

Called by ; used as a parameter to EDIT_SCREEN 
by any command that requires a dtg be entered. 

} 

^icicicicicic’k’k'k’k’k’k’k’k’k’k’k'k'k'k’k'k’k’k’k'k'k’k’k’kic’k'k'k'k’k’kic’k’k’k’k’k’k'k’k’k’k'j 

($F+) 

function time_not_past (string_value : stringSO) ; boolean; 
var 

time_equivalent : datetime; 
begin 

if valid_dtg (string_value) then 
begin 

dtg_to_datetime (string_value, time_eguivalent) ; 
if time_relative (time_equivalent , game_time) = before 
then 

begin 

time_not_past := false; 

display_error_message ('INPUT ERROR', null_string, 
null_string, 

'time entered has already 

past', null_string) ; 
end 
else 

time_not_past := true 

end 

else 

begin 
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time_not_past := false; 

display_error_message ('INPUT ERROR', null_string, 

'dtg format ; "05 0530Z JAN 

89 " ' , 

'spaces may be omitted', 

null_string) 
end 
end ; 

{$F-} 

(************************************************J 

{ 

Procedure name : VALID_N0DE_F0R_R0UTE 

Purpose : this procedure checks a node to insure 
that it lies on the route being entered for a 
movement command. 

Parameters : STRING_VALUE - node to be checked. 

Called by : used as a parameter to EDIT_SCREEN 
by MOVE_UNIT. 

} 

{$F+) 

function valid_node_for_route (string_value : stringSO) 
boolean ; 

begin 

string_value := upper_case (string_value) ; 
if valid_node ( string_value) then 
route[2][l] := string_value 
end ; 

{$F-> 

^★★★*******************‘*********‘*****************^ 

{ 

Procedure name : VALID_PATH_IN_ROUTE 

Purpose : this procedure checks a path to insure 
that it lies on the route being entered for a 
movement command. 

Parameters : STRING_VALUE - path to be checked. 

Called by ; used as a parameter to EDIT_SCREEN 
by M0VE_UNIT. 

} 

{$F+} 
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function valid_path_in_route (string_value : stringSO) : 
boolean ; 

var 

node_has_path ; boolean; 
path_has_node : boolean; 
path_exists : boolean; 
tempjpath : path_record; 
temp_node : node_record ; 
i : integer; 

procedure update_f ields_displayed ; 
begin 

if (key = up_arrow) and (current_path > 2) then 
begin 

deer (number_of_f ields) ; 
with f ield_list [current_path] do 
begin 

str_val := null_string; 
put_string (label_x, label_y, 



end ; 

deer (current_path) 
end 

else if (key = enter) or (key = down_arrow) or 

((key = f2) and (string_value <> null_string) ) then 

begin 

route[l] [current_path] := temp_path . path_name ; 
if temp_path. start_node = temp_node . node_name then 
route [ 2 ] [current_path] := temp_path . end_node 
else 

route [ 2 ] [current_path] := temp_path. start_node ; 
with field_list [current_path] do 

put_string (label_x + 21, label_y, 

'to node : '+ route[2] [current_path] ) ; 

if (current_path < ll) then 
begin 

incr (number_of_f ields) ; 
with f ield_list [current_path + 1] do 
begin 

put_string (label_x, label_y, label_string) ; 
if length (str_val) > (x2 - xl + 1) then 
str_val [0] := chr (x2 - xl + 1) ; 
put_string (xl, yl, str_val) 
end; 

incr (current_path) 
end 

else if key <> f2 then 
key := null 
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end 
end ; 

begin 

suppress_messages := true; 

string_value := upper_case (string_value) ; 

path_exists := (key = up_arrow) or 

((key = f2) and (string_value = null_string) and 
(current_path > 2)); 
if not path_exists then 
begin 

taread (paths, temp_path, string_value, exactmatch) ; 
path_exists := ok; 
if not path_exists then 

display_error_message ('INPUT ERROR', null_string, 
null_string, 

'path entered does not exist', 

null_string) 

else 

begin 

taread (nodes, temp_node, route [ 2 ] [ current_path - 1], 
exactmatch) ; 

node_has_path ;= false; 
for i := 1 to 6 do 

if temp_node.paths[i] = temp_path . path_name then 
node_has_path := true; 
path_has_node := (temp_path. start_node = 
temp_node . node_name ) or 

(terop_path. end_node = 

temp_node.node_name) ; 

path_exists := node_has_path and path_has_node ; 
if not path_exists then 

display_error_message ('INPUT ERROR', null_string, 

'path does not connect', 'to 

previous node', 

null_string) 

end 

end; 

if path_exists then 

update_f ields_displayed ; 
valid_path_in_route := path_exists; 
suppress_messages := false 
end ; 

($F-) 

(************************************************J 

{ 

Procedure name : VALID_UNIT_TO_MOVE 

Purpose : this procedure checks a unit entered to 
insure that it is a valid unit in this game and 
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that it is not already pending a move. 

Parameters : STRING_VALUE - unit to be checked. 

Called by : used as a parameter to EDIT_SCREEN 
by MOVE_UNIT. 

) 

(************************************************) 

{$F+} 

function valid_unit_to_move (string_value ; strings 0) : 
boolean ; 

var 

unit_exists : boolean; 
i : integer; 

begin 

suppress_messages := true; 

string_value := upper_case (string_value) ; 
unit_exists := valid_unit (string_value) or 

valid_ammo_truck (string_value) or 
valid_convoy (string_value) or 
(string_value = 'TRAIN'); 
if not unit_exists then 

display_error_message ('INPUT ERROR', null_string, 

'unit entered does not exist', 
'or cannot move separately', 

null_string) 

else 

begin 

if string_value = 'TRAIN' then 

unit_exists := not battalion_trains . pending_movement 
else if valid_unit (string_value) then 

unit_exists := not f iring_units [unit_number 
(string_value) ] . 

pending_movement 

else if valid_ammo_truck (string_value) then 
unit_exists := not ammo_trucks [ truck_number 
(string_value) ] . 

pending_movement 

else 

begin 

unit_exists := true; 

for i := 1 to number_of_ammo_t rucks do 
with ammo_trucks [ i ] do 

if (convoy_name = string_value) and 
(pending_movement) then 

unit_exists ;= false 

end; 

if not unit_exists then 

display_error_message ('INPUT ERROR', null_string. 
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'unit is already moving or is 
'pending execution of a 

movement', null_string) 
end; 

if unit_exists then 
begin 

if valid_unit (string_value) then 
begin 

number_of_f ields := 4; 
with field_list [4 ] do 
begin 

put_string (label_x, label_y, label_string) ; 
if length (str_val) > (x2 - xl + 1) then 
str_val [0] ;= chr (x2 - xl + 1); 
put_string (xl, yl, str_val) 
end 

end 

else 

begin 

number_of_f ields := 3; 
f ield_list [ 4 ] . str_val := null_string; 
with f ield_list [ 4 ] do 
put_string (label_x, label_y, ' 

end 

end; 

valid_unit_to_move ;= unit_exists; 
suppress_messages := false 
end ; 

($F-) 

^************************************************) 

{ 

Procedure name : VALID_NODE_FOR_RESUPPLY 

Purpose : this procedure checks a node entered 
to insure that it lies along the entered route 
so that resupply can occur there. 

Parameters : STRING_VALUE - node to be checked. 

Called by : used as a parameter to EDIT_SCREEN 
by M0VE_UNIT. 

} 

(***★*********★*********************★★***********) 

($F+) 

function valid_node_for_resupply (string_value : strings 0) 
boolean ; 

var 
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i ; integer; 

node_in_route : boolean; 
begin 

string_value := upper_case (string_value) ; 
node_in_route := string_value = null_string; 
if not node_in_route then 
for i ;= 1 to 12 do 

if string_value = route[2][i] then 
node_in_route ;= true; 
if not node_in_route then 

display_error_niessage ('INPUT ERROR', null_string, 

'node entered is not along', 

'the entered route', null_string) ; 

valid_node_for_resupply := node_in_route 
end ; 

{$F-} 

(************************************************) 

{ 

Procedure name : CREATE_TRUCK_CONVOY 

Purpose : this procedure allows the player to 
create a convoy of trucks to be used as a group 
for other commands to be entered. 

Parameters : none- 



Called by : ISSUE_COMMAND 



} 

(************************************************J 

procedure create_truck_convoy ; 



var 

names : name_array; 
i ; integer ; 

procedure set_up_f ields ; 



var 

i, j : integer; 
begin 

number_of_f ields ;= 25; 
with field_list[l] do 
begin 

label_string := 'New convoy name :'; 
label_x ;= 11; label_y ;= 9; 
str_val := null_string; 

xl := 30; yl := 9; x2 := 34; y2 := 9; 
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field_type := eval; eval_function := uniapae_convoy_naine 
end ; 

for i := 0 to 2 do 
for j := 1 to 8 do 

with field_list[l + j + (i * 8)] do 
begin 

label_string := null_string; 
label_x := 11; label_y := 11; 
str_val ;= null_string; 

xl := 3 + (j * 8); yl := 13 + i; x2 := 7 + (j * 
8) ; y2 := 13 + i; 

field_type := eval; eval_function := 
val id_amino_truck_f or_convoy 
end; 

f ield_list [ 2 ] . label_string := 'Enter bumper numbers for 
trucks in convoy : ' 
end ; 

function valid_input (var names : name_array) : boolean; 
var 

input_is_valid ; boolean; 
location : stringlO; 
ammo_status : char; 
i : integer; 

begin 

input_is_valid := false; 
for i := 1 to 24 do 

if names [i] <> null_string then 
input_is_valid := true; 
if input_is_valid then 
begin 
i : = 0 ; 
repeat 

incr (i) 

until names[i] <> null_string; 
location := ammo_trucks [truck_number 
(names [ i ] ) ] .location ; 

ammo_status := ammo_trucks [ truck_number 
(names [ i ] ) ] . load_status ; 
for i := 1 to 24 do 

if (names[i] <> null_string) and 

((location <> ammo_trucks [ truck_number 
(names [ i ])]. location) or 

(ammo_status <> ammo_trucks [ truck_number 
(names [ i] )]. load_status) or 

( ammo_trucks [ truck_number 
(names [ i] )] .mission_assigned = 'Y')) then 
input_is_valid := false 

end ; 
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if not input_is_valid then 

display_error_iriessage ('COMMAND ERROR', 

'all trucks must be in same 



location, ' , 



'have no mission assigned, and', 
'have the same ammo status to be 



'part of the same convoy'); 
valid_input := input_is_valid 
end; 

begin 

set_up_f ields ; 
save_screen; 
clear_area (2,3,79,22); 
display_command_help_line ; 

center_text (4, 'Create Truck Convoy', cyan); 
repeat 

edit_screen (number_of_f ields , field_list, 
abort_allowed) ; 

field_list [ 1] . str_val := upper_case 
(field_list[l] .str_val) ; 
for i := 1 to 24 do 

names [i] ;= upper_case (field_list[ i + 13 .str_val) 

until (key = escape) or valid_input (names) ; 
if key <> escape then 
for i := 1 to 24 do 

if names [i] <> null_string then 

aimo_trucks [ truck_number ( names [ i ] ) ] . convoy_name : 
f ield_list [ 1 ] . str_val ; 
restore_screen 
end ; 

(************************************************) 

{ 

Procedure name : REMOVE_TRUCK_CONVOY 

Purpose : this procedure allows the player to 
remove trucks from a convoy so that they will 
now be treated individually by the player. 

Parameters : none. 



Called by : ISSUE_COMMAND 



) 

(************************************************) 
procedure remove_truck_convoy ; 



var 

i : integer; 
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procedure set_up_f ields ; 
begin 

nuinber_of_f ields := 1; 
with field_list[l] do 
begin 

label_string := 'Convoy to be separated 
label_x := 25; label_y := 12; 
str_val := null_string; 

xl := 51; yl := 12; x2 := 55; y2 ;= 12; 
field_type := eval; eval_f unction := valid_convoy 
end 
end ; 

begin 

set_up_f ields ; 
save_screen; 
clear_area (2,3,79,22); 
display_coimnand_help_line; 

center_text (4, 'Remove Truck Convoy', cyan); 

edit_screen (number_of_f ields , field_list, abort_allowed) ; 

f ield_list [ 1] . str_val := upper_case (f ield_list[l] . str_val) 

if (key = f2) or (key = enter) then 

for i := 1 to number_of_ammo_trucks do 

if ammo_trucks [ i ] . convoy_name = f ield_list [ 1 ] . str_val 

then 

ammo_trucks [ i ] . convoy_name := null_string; 
restore_screen 
end; 

^-k'k'k'k'k'k'k'k'k-k-k'k-k'k-k-k-kic'k'k’k'k'k'k'k'kif'k'k'k'k'k'k'kiic'krk'k'k'k'k'k'k’k'k’k'k'k'j 

{ 

Procedure name ; AMMO_RESUPPLY_MISSION 

Purpose : this procedure allows the player to 
assign a truck or convoy the mission of ammo 
delivery to either a fire unit or node. This 
command must be issued with a corresponding 
movement order to insure that applicable units 
are at the proper locations for delivery. 

Parameters : none. 



Called by : ISSUE_COMMAND 



} 

procedure ammo_resupply_mission ; 



var 

i : integer; 
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procedure set_up_f ields ; 
begin 

nuinber_of_f ields := 2; 
with field_list[l] do 
begin 

label_string := 'Ammo truck bumper # or convoy name 
label_x := 19; label_y := 10; 
str_val := null_string; 

xl := 57; yl := 10; x2 := 61; y2 ;= 10; 
field_type := eval; eval_f unction := 
val id_truck_or_convoy 
end; 

with f ield_list [2 ] do 
begin 

label_string := 'Unit to resupply :'; 
label_x := 19; label_y ;= 12; 
str_val := null_string; 

xl ;= 39; yl := 12; x2 := 43; y2 := 12; 
field_type ;= eval; eval_f unction := 
va 1 i d_un i t_t o_r e supp 1 y 
end; 

with field_list[3] do 
begin 

label_string ;= 'Node to resupply 
label_x := 19; label_y := 14; 
str_val := null_string; 

xl := 39; yl := 14; x2 := 43; y2 := 14; 
field_type ;= eval; eval_f unction := valid_node 
end 
end ; 

function valid_input : boolean; 
var 

input_is_valid ; boolean; 
i : integer; 

begin 

input_is_valid := not ( (field_list[3] ,str_val = null_string) 
and 

( (field_list[2] . str_val = null_string) or 
(field_list[2] . str_val = 'PREPO'))); 
if input_is_valid then 
begin 

suppress_messages ;= true; 

if valid_ammo_truck (field_list[l] . str_val) then 
begin 

input_is_valid ;= ammo_trucks[truck_number 
(field_list[l] .str_val) ] . 
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mission_assigned = 'N' ; 
if not input_is_valid then 

display_error_message ('COMMAND ERROR', 
null_string, 

'ammo truck already has a', 
'mission assigned', 

null_string) 

end 

else 

begin 

for i := 1 to number_of_ammo_t rucks do 
if (ammo_trucks [ i ] . convoy_name = 
field_list[l] .str_val) and 

(ammo_trucks[ i] .mission_assigned = 'Y') then 
input_is_valid := false; 
if not input_is_valid then 

display_error_message ('COMMAND ERROR', 
null_string, 

'convoy already has a', 
'mission assigned' , 

null_string) 
end ; 

suppress_messages := false 
end ; 

valid_input := input_is_valid 
end ; 

begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,3,79,22); 
display_command_help_line ; 

center_text (4, 'Ammunition Resupply', cyan); 
repeat 

edit_screen (number_of_f ields, field_list, 
abort_allowed) ; 

f ield_list [ 1 ] . str_val := upper_case 
( f ield_list [ 1] . str_val ) ; 

f ield_list [ 2 ] . str_val := upper_case 
(f ield_list [ 2 ] . str_val ) ; 

f ield_list [ 3 ] . str_val := upper_case 
( f ield_list [ 3 ] .str_val) ; 
until (key = escape) or valid_input; 
if key <> escape then 
begin 

if truck_number (field_list [ 1] . str_val) <> 0 then 
begin 

ammo_trucks [ truck_number ( f ield_l ist [ 1 ] . str_val ) ] . 
mission_assigned ;= 'Y'; 

ammo_t rucks [truck_number ( f ield_list [ 1 ] .str_val) ] . 
f iring_unit_to_resupply := field_list[2] .str_val; 
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anuno_trucks [truck_nuraber (field_list[l] .str_val) ] . 
node_to_resupply := f ield_list [3 ] . str_val 

end 

else 

for i := 1 to number_of_aiMno_trucks do 
i f amino_trucks [ i ] . convoy_name = 
field_list[l] .str_val then 
begin 

amino_trucks[i] .mission_assigned := 'Y' } 
anuno_trucks [ i ] . f iring_unit_to_resupply : = 
field_list [2 ] . str_val ; 

ainino_trucks [ i ] . node_to_resupply : = 
field_list [3 ] .str_val 
end 

end ; 

restore_screen 
end ; 

^★★★★★★★*****************************************J 

{ 

Procedure name : CANCEL_RESUPPLY_MISSION 

Purpose : this procedure allows the player to 
cancel the resupply mission issued to a truck 
or convoy by the AMMO_RESUPPLY_COMMAND. 

Parameters : none. 



Called by : ISSUE_COMMAND 



) 

(************************************************) 
procedure cancel_resupply_mission; 



var 

i : integer; 

procedure set_up_f ields ; 
begin 

number_of_f ields := 1; 
with field_list[l] do 
begin 

label_string := 'Ammo truck bumper # or convoy name 
label_x ;= 19; label_y := 12; 
str_val := null_string; 

xl := 57; yl := 12; x2 := 61; y2 := 12; 
field_type := eval; eval_function := 
val id_truck_or_convoy 
end 
end ; 
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begin 

set_up_f ields ; 
save_screen; 
clear_area (2,3,79,22); 
display_cominand_heip_line ; 

center_text (4, 'Cancel Resupply Mission', cyan); 
edit_screen (number_of_f ields, field_list, abort_allowed) ; 
field_list [ 1] . str_val := upper_case ( f ield_list [ 1 ] . str_val ) 

if (key = f2) or (key = enter) then 

for i := 1 to number_of_amino_t rucks do 
if ( (ammo_trucks [ i] . bumper_nuinber = 
f ield_list [ 1] . str_val) or 

( aitimo_trucks [ i ] . convoy_name = 
f ield_list [ 1 ] . str_val ) ) and 

(ammo_trucks [ i] .mission_assigned = 'Y') and 
( (ammo_t rucks [ i ]. node_to_resupply <> null_string) 
or 

( antmo_t rucks [ i ] . f iring_unit_to_resupply <> 
null_string) ) then 
begin 

aimo_trucks [ i ] .mission_assigned := 'N' ; 
ammo_trucks [ i ] . node_to_resupply : = 

null_string ; 

ammo_trucks [ i ] . f iring_unit_to_resupply := 

null_string 

end ; 

restore_screen 
end ; 

(************************************************) 

( 

Procedure name : FIRE_UNIT_AMMO_PICKUP 

Purpose : this procedure allows the player to 
issue an order to a fire unit to pick up ammo 
at a specified node. This command must be 
issued with a corresponding movement order to 
get the fire unit to the specified node. 

Parameters : none. 



Called by : ISSUE_COMMAND 



) 

(************************************************J 

procedure f ire_unit_ammo_pickup; 
procedure set_up_f ields; 



begin 

number of fields := 2; 
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with f ield_list [ 1] do 
begin 

label_string := 'Fire unit to pick up ammo ; ' ; 
label_x := 24; label_y := 11; 
str_val ;= null_string; 

xl := 53; yl := 11; x2 ;= 57; y2 ;= 11; 
field_type := eval; eval_function ;= valid_unit 
end; 

with f ield_list [2 ] do 
begin 

label_string ;= 'Location of ammo ;'; 
label_x := 24; label_y := 13; 
str_val ;= null_string; 

xl := 44; yl := 13; x2 := 48; y2 := 13; 
field_type ;= eval; eval_f unction ;= valid_node 
end 
end; 

function valid_input : boolean; 
var 

input_is_valid : boolean; 
begin 

input_is_valid := field_list [2 ] . str_val <> null_string; 
if input_is_valid then 
begin 

with f iring_units [unit_number (f ield_list [ 1 ] . str_val ) ] do 

input_is_valid := ammo_pickup_mission ; 
if not input_is_valid then 

display_error_message ('COMMAND ERROR', null_string, 

'fire unit already has an', 
'ammo pickup mission assigned' , 

null_string) 

end; 

valid_input := input_is_valid 
end; 

begin 

set_up_f ields ; 
save_screen; 
clear_area (2,3,79,22); 
display_command_help_line; 

center_text (4, 'Fire Unit Ammunition Pickup', cyan); 
repeat 

edit_screen (number_of_f ields, field_list, 
abort_allowed) ; 

field_list [1] .str_val ;= upper_case 
(field_list[l] .str_val) ; 
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field_list[2] .str_val ;= upper_case 
(f ield_list [2 ] . str_val) 
until (key = escape) or valid_input; 
if key <> escape then 

with f iring_units [unit_number (field_list [1] .str_val) ] do 

if not ainino_pickup_iaission then 
begin 

aimo_pickup_mission ;= true; 

ainmo_pickup_location ;= field_list [2 ] .str_val 
end; 

restore_screen 
end ; 

^************************************************J 

{ 

Procedure name : CANCEL_FIRE_UNIT_PICKUP 

Purpose : this procedure allows the player to 
cancel an order to a fire unit to pick up ammo 
at a specified node as directed to by a 
FIRE_UNIT_AMMO_PICKUP order. 

Parameters : none. 



Called by : ISSUE_COMMAND 



) 

(************************************************) 
procedure cancel_f ire_unit_pickup ; 



procedure set_up_f ields ; 
begin 

number_of_f ields := 1; 
with field_list[l] do 
begin 

label_string := 'Fire unit 
label_x := 33; label_y := 12; 
str_val ;= null_string; 

xl := 46; yl := 12; x2 := 50; y2 := 12; 
field_type := eval; eval_function := valid_unit 
end 
end ; 



begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,3,79,22); 
display_command_help_line ; 

center_text (4, 'Cancel Ammo Pickup Mission', cyan); 
edit_screen (number_of_f ields, field_list, abort_allowed) ; 
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field_list[l] . str_val := upper_case (field_list[l] .str_val) ; 

if (key = f 2) or (key = enter) then 

with f iring_units [unit_nuinber (field_list [ 1 ] . str_val) ] do 

if aiaino_pickup_mission then 
begin 

ainino_pickup_inission := false; 
ainino_pickup_location := null_string 
end; 

restore_screen 

end; 

^************************************************) 

{ 

Procedure name : AMMO_TRUCK_AMMO_PICKUP 

Purpose : this procedure allows the player to 
issue an order to a truck or convoy that is 
at the trains location and empty to proceed to 
atp for ammo resupply. 

Parameters : none. 



Called by ; ISSUE_COMMAND 



) 

procedure ammo_truck_ammo_pickup ; 



var 

command_number : string6; 
new_event_l ; event_record ; 
new_event_2 : event_record ; 
i : integer; 

procedure set_up_f ields ; 
begin 

number_of_f ields := 2; 
with field_list[l] do 
begin 

label_string := 'Ammo truck or convoy to pickup ammo : ' ; 
label_x := 19; label_y := 11; 
str_val := null_string; 

xl := 58; yl := 11; x2 := 62; y2 := 11; 
field_type := eval ; eval_function := trucks_at_atp 
end ; 

with field_list[2] do 
begin 

label_string := 'Departure time :'; 
label_x := 19; label_y := 13; 
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str_val := game_dtg; 

xl := 37; yl := 13; x2 ;= 51; y2 := 13; 
field_type := eval; eval_f unction := time_not_past 
end 
end; 

begin 

set_up_f ields ; 
save_screen; 
clear_area (2,3,79,22); 
display_coininand_help_iine ; 

center_text (4, 'Ammo Truck Ammunition Pickup', cyan); 
put_string (55, 6, 'Command number :'); 
str (command_serial_number , comma nd_number) ; 
put_string (72, 6, command_number) ; 
color_foreground (55,6,77,6, yellow); 

edit_screen (number_of_f ields, field_list, abort_allowed) ; 
f ield_list [ 1] . str_val := upper_case ( f ield_list [ 1 ] . str_val) ; 

if key = f2 then 
begin 

with new_event_l do 
begin 

event_type := 'D'; 

serial_number := command_serial_number ; 

dtg_to_timekey (field_list[2] .str_val, time_key) ; 

unit_type := 'A'; 

unit_name := null_string; 

node ;= null_string; 

path := 'ATP' 

end ; 

new_event_2 := new_event_l; 
with new_event_2 do 
begin 

event_type := 'R' ; 

time_key := inc_dtg_to_timekey ( f ield_list [ 2 ] . str_val , 
abs (normal_rv 

(game_parameters. avg_time_trains_to_atp, 10) ) ) ; 
path := null_string 
end ; 

if truck_number ( f ield_list[ 1] . str_val) <> 0 then 
begin 

new_event_l . unit_name := f ield_list [ 1] . str_val ; 
new_event_2 . unit_name := f ield_list [ 1] . str_val ; 
new_event_2 . node : = 

ammo_trucks [ truck_number 
(field_list[ 1] .str_val) ] .location; 

ammo_trucks [ truck_number (field_list[l) .str_val) ] . 

mission_assigned := 'Y'; 
add_event (new_event_l) ; 
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add_event ( new_event_2 ) 
end 
else 

begin 

for i ;= 1 to number_of_amino_trucks do 
if amino_t rucks [ i ] . convoy_name = 
field_list [ 1] . str_val then 
begin 

new_event_l . unit_name : = 
ammo_trucks [ i ] . bumper_number ; 

new_event_2 . unit_name : = 
ammo_t rucks [ i ] . bumper_number ; 

new_event_2 . node := ainino_trucks[i] .location 
anuno_trucks[i] .mission_assigned ;= 'Y'; 
add_event (new_event_l) ; 
add_event ( new_event_2 ) 
end 

end; 

incr (command_serial_nuinber) 
end; 

restore_screen 
end ; 



(************************************************) 

{ 

Procedure name : ISSUE_FIRE_ORDER 

Purpose : this procedure allows the player to 
issue an order to a fire order to execute a 
fire order with the specified number of volleys 
and at the specified time. 

Parameters : none. 



Called by : ISSUE_COMMAND 



} 

(************************************************) 
procedure issue_f ire_order ; 



var 

command_number : strings ; 
new_event : event_record ; 

procedure set_up_f ields ; 

begin 

number_of_f ields := 3; 
with f ield_list [ 1] do 
begin 

label_string := 'Unit to fire 
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10 ; 



label_x := 25; label_y := 
str_val := null_string; 
xl : = 41 ; yl : = 10 ; x2 := 45 ; y2 := 10 ; 
field_type := eval ; eval_function := valid_unit 
end ; 

with field_list [2 ] do 
begin 

label_string := 'Time to fire 
label_x := 25; label_y := 12; 
str_val := game_dtg; 

xl := 41; yl := 12; x2 := 55; y2 := 12; 
field_type := eval; eval_function := time_not_past 
end ; 

with field_list [3 ] do 
begin 

label_string := 'Number of volleys :'; 
label_x := 25; label_y := 14; 
xl := 46; yl := 14; x2 := 48; y2 := 14; 
field_type := int; int_min_value := 0; int_max_value : = 
maxint ; 

int_value ;= 1; 
str (int_value, str_val) 
end 
end ; 

begin 

set_up_f ields; 

save_screen ; 

clear_area (2,3,79,22); 

display_command_help_line; 

center_text (4, 'Fire Order', cyan); 

put_string (55, 6, 'Command number :'); 

str (command_serial_number, command_number) ; 

put_string (72, 6, command_number) ; 

color_foreground (55,6,77,6, yellow); 

edit_screen (number_of_f ields, field_list, abort_allowed) ; 
f ield_list [ 1] . str_val := upper_case ( f ield_l ist [ 1 ] . str_val ) ; 

if key = f2 then 
begin 

with new_event do 
begin 

event_type := 'F'; 

serial_number := command_serial_number ; 
dtg_to_timekey ( f ield_list [ 2 ] . str_val , time_key) ; 
unit_type := 'F'; 

unit_name := f ield_list [ 1 ] . str_val ; 
volleys := f ield_list [ 3 ] . int_value 
end ; 

add_event (new_event) ; 
incr (command_serial_number) 
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end; 

restore_screen 

end; 

{ 

Procedure name : CHANGE_FIRING_RATE 

Purpose : this procedure allows the player to 
change the rate at which a unit fires during the 
execution of each time step. 

Parameters ; none. 



Called by : ISSUE_COMMAND 

(************************************************ 
procedure change_f iring_rate ; 

procedure set_up_f ields ; 



) 

) 



begin 

number_of_f ields ;= 2; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Unit to change 
label_x ;= 27; label_y := 11; 
str_val := null_string; 

xl := 45; yl := 11; x2 := 49; y2 := 11; 
field_type := eval; eval_function := valid_unit 
end; 

with f ield_list [ 2 ] do 
begin 

label_string := 'Firing rate (% CSR) :'; 
label_x ;= 27; label_y ;= 13; 
str (1.0, str_val) ; 

xl := 50; yl ;= 13; x2 := 53; y2 := 13; 
field_type := float; float_min_value := 0.01; 
f loat_max_value := 1.0 
end 
end; 



begin 

set_up_f ields ; 
save_screen ; 
clear_area (2,3,79,22); 
display_command_help_line; 

center_text (4, 'Change Unit Firing Rate', cyan); 
edit_screen (number_of_f ields , field_list, abort_allowed) ; 
field_list[l] .str_val := upper_case (field_list[l] . str_val) 
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if key = f2 then 

f iring_units [unit_nuinber 
(field_list[l] . str_val) ] . rate_percent_csr := 
field_list[l] . float_value; 
restore_screen 
end ; 

(************************************************) 

{ 

Procedure name : CANCEL_COMMAND 

Purpose : this procedure allows the player to 
cancel a command that was issued with a time for 
execution if it has not passed. It requires that 
the serial number of the command to be cancelled 
be entered. 



Parameters : none. 



Called by : ISSUE_COMMAND 




procedure cancel_command; 



var 

record_number : longint; 
procedure set_up_f ields ; 
begin 

number_of_f ields := 1; 
with field_list[l] do 
begin 

label_string := 'Number of command to cancel : ' ; 
label_x := 24; label_y := 12; 
str_val := null_string; 

xl := 55; yl ;= 12; x2 ;= 57; y2 ;= 12; 
field_type := int; 

int_min_value := 0; int_max_value := 
command_serial_number - 1 
end 
end ; 

begin 

set_up_f ields ; 

save_screen; 

clear_area (2,3,79,22); 

display_command_help_line ; 

center_text (4, 'Cancel Command', cyan); 

edit_screen (number_of_f ields, field_list, abort_allowed) 
if (key = f2) or (key = enter) then 
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begin 

findkey (serial_number_index, record_nuinber , 
field_list[l] .str_val) ; 
while ok do 
begin 

delete_event (record_number) ; 
findkey (serial_nuinber_index, record_nuniber , 
field_list [1] ,str_val) 
end 
end ; 

restore_screen 

end; 



(************************************************) 

{ 

Procedure name : MOVE_UNIT 

Purpose : this procedure allows the player to 
issue a movement order to any of the units in 
the game. This is done by first entering the 
route for the movement and then the information 
for the unit and the time to movement. It also 
allows the player to instruct a fire unit to 
resupply in route at a specified node. 



Parameters : none. 



Called by : ISSUE_COMMAND 



} 

(************************************************) 
procedure move_unit ; 



var 

command_number : string6; 
valid_input ; boolean; 



(************************************************) 

{ 

Procedure name ; GET_ROUTE 

Purpose : this procedure allows the player to 
enter the route to taken by a unit that is to 
be moved with this movement order. It allows 
a route with up to 10 nodes in it. 

Parameters ; none. 



Called by ; M0VE_UNIT 

(************************************************ 
procedure get_route ; 



) 

) 
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var 



i : integer; 
j : integer; 

procedure set_up_f ields ; 
var 

i : integer; 
begin 

number_of_f ields := 2; 
with field_list[l] do 
begin 

label_string := 'Start node 
label_x := 24; label_y := 10; 
str_val := null_string; 

xl := 38; yl := 10; x2 := 42; y2 := 10; 

field_type := eval ; eval_function := valid_node_for_route 
end; 

for i := 2 to 11 do 

with field_list [ i] do 
begin 

label_string := 'along path :'; 
label_x := 24; label_y := 10 + i; 
str_val := null_string; 

xl := 38; yl := 10 + i; x2 := 42; y2 := 10 + i; 
field_type := eval; eval_function := 
valid_path_in_route 
end 

end ; 
begin 

set_up_f ields ; 
save_screen ; 

put_string (26,25, 'Accept route '); 
center_text (8, 'Enter route for movement', cyan); 
for i := 1 to 2 do 

for j := 1 to 11 do 

route [i][j] := null_string; 

current_path := 2; 
valid_input := false; 
repeat 

edit_screen (number_of_f ields , field_list, 
abort_allowed) ; 

for i := 1 to number_of_f ields do 

field_list[i] .str_val ;= upper_case 
( f ield_list [ i ] . str_val) ; 
if key <> escape then 

valid_input := f ield_list [ 2 ] . str_val <> null_string 
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until (key = escape) or valid_input; 

restore_screen 

end; 

^ **★*****************★**********************★****) 

{ 

Procedure name ; GET_MOVEMENT_INFO 

Purpose : this procedure allows the player to 
enter the unit to be moved, the departure or 
arrival time, and, if it is a fire unit, the 
location for a resupply in route. 

Parameters : none. 



Called by : MOVE_UNIT 



} 

(************************************************) 
procedure get_movement_info; 



procedure set_up_f ields ; 



begin 

number_of_f ields := 3; 
with f ield_list [ 1 ] do 
begin 

label_string := 'Unit to move 
label_x := 18; label_y := 10; 
str_val := null_string; 

xl := 34; yl := 10; x2 ;= 38; y2 := 10; 

field_type ;= eval; eval_function := valid_unit_to_move 

end; 

with field_list[2] do 
begin 

label_string := 'Time for movement :'; 
label_x := 18; label_y := 12; 
str_val := game_dtg; 

xl := 39; yl := 12; x2 := 53; y2 := 12; 
field_type ;= eval; eval_f unction := time_not_past 
end; 

with f ield_list [ 3 ] do 
begin 

label_string := 'Is this a departure or arrival time 
(D/A) :'; 

label_x := 18; label_y ;= 14; 
str_val := 'D'; 

xl := 63; yl ;= 14; x2 ;= 63; y2 := 14; 
field_type := ch; valid_char_set := ['D','A'] 
end; 

with f ield_list [ 4 ] do 
begin 
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label_string := 'Node to resupply at 
label_x := 18; label_y := 16; 
str_val ;= null_string; 

xl := 41; yl := 16; x2 := 45; y2 ;= 16; 
field_type := eval; eval_function := 
val id_node_for_re supply 
end 
end; 

begin 

set_up_f ields ; 
save_screen ; 

center_text (8, 'Enter movement information', cyan); 
edit_screen (number_of_f ields , field_list, abort_allowed) ; 
f ield_list [ 1] . str_val := upper_case (f ield_list [ 1] . str_val) 

f ield_list [4 ] . str_val := upper_case ( f ield_list [ 4 ] . str_val) 

valid_input := key = f 2 ; 

restore_screen 

end ; 

(************************************************) 

{ 

Procedure name : CREATE_EVENT_RECORDS 

Purpose : this procedure creates the event 
records that correspond to the information 
entered in this movement order. 

Parameters : none. 



Called by : MOVE_UNIT 



} 

(************************************************) 
procedure create_event_records ; 



type 

route_array = array [2.. 11] of integer; 

var 

route_info : route_array; 
total_estimated_time : integer; 
new_event : event_record ; 
wait_event : event_record ; 
wait_exists : boolean; 
command_start_time ; datetime; 
command_time : stringl5; 
path_number : integer; 
i : integer; 
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procedure calculate_moveinent_tiines 
route_array ; 

: integer) ; 



(var route_info : 
var total estimated time 



var 

i ; integer; 
path_number : integer; 
speed : real; 

calculated_time : integer; 
estimated_time : integer; 
total_calculated_time : integer; 
temp_path : path_record ; 
tracked_vehicle ; boolean; 

begin 

path_number ; = 2 ; 
total_estimated_time := 0; 
total_calculated_time := 0; 

tracked_vehicle := unit_number (field_list[l] .str_val) <> 0; 
repeat 

taread (paths, temp_path, route [ 1 ] [path_n umber ] , 
exactmatch) ; 

if tracked_vehicle then 
begin 

estimated_time ;= 
round (((1.0 / 

game_parameters . avg_track_convoy_speed) * 60.0) 

* temp_path. length) ; 
case temp_path. road_condition of 

'P' : speed ;= 0.95 * 
game_parameters . avg_track_convoy_speed ; 

'M' : speed := 1.00 * 
game_parameters . avg_track_convoy_speed ; 

'G' : speed := 1.05 * 

game_parameters . avg_track_convoy_speed 
end ; 

calculated_time := 

abs (normal_rv (round (((1.0 / speed) * 60.0) * 
temp_path. length) , 5)) 
end 
else 

begin 

estimated_time := 
round (((1.0 / 

game_parameters . avg_wheel_convoy_speed) * 60.0) 

* temp_path. length) ; 
case temp_path. road_condition of 

'P' : speed := 0.95 * 

game_parameters . avg_wheel_convoy_speed ; 
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'M' : speed := 1.00 * 
game_parameters . avg_wheel_convoy_speed ; 

'G' : speed := 1.05 * 
game_parameters . avg_wheel_convoy_speed 
end; 

calculated_time := 

abs (normal_rv (round (((1.0 / speed) * 60.0) * 
temp_path . length ) , 5 ) ) 
end; 

route_info [path_number] ;= calculated_time ; 
total_estimated_tiine ;= total_estimated_time + 
estimated_time ; 

total_calculated_time ;= total_calculated_time + 
calculated_time ; 

incr (path_nuniber) 

until (path_n umber > 11) or (route [1] [path_number] = 
null_string) ; 

for i := path_number to 11 do 
route_info[i] := 0 
end ; 

begin 

calculate_movement_times (route_info, total_estimated_time) 

dtg_to_datetime (field_list[2 ] . str_val, cominand_start_time) 

if f ield_list [ 3 ] . str_val = 'A' then 

dec_time (command_start_time, total_estimated_time) ; 
if time_relative (command_start_time, game_time) = before 
then 

command_start_time := game_time; 
datetime_to_dtg (command_start_time, command_time) ; 
path_number : = 1 ; 
repeat 

wait_exists := false; 
if path_number = 1 then 
begin 

with new_event do 
begin 

event_type := 'D'; 

serial_number := command_serial_number ; 
dtg_to_time)cey (command_time, time_key) ; 
path := route [ 1 ] [path_number + 1] 
end 

end 

else if (path_number = 11) or (route [ 1] [path_number + 1] 
= null_string) then 
begin 

with new_event do 
begin 

event_type : = 'O'; 
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serial_number := cominand_serial_number ; 
tiitie_key : = 

inc_dtg_to_timekey ( comma nd_ t ime , 
route_info [path_number] ) ; 

node := route[2 ] [path_number] 
end 

end 

else 

begin 

if route[2] [path_number] = field_list [4 ] . str_val then 
begin 

wait_exists := true; 
with wait_event do 
begin 

event_type ;= 'W' ; 

serial_number := command_serial_number ; 
time_key := 

inc_dtg_to_timekey (command_time, 
route_info [path_number] ) ; 

node := route [2 ] [path_number ] 
end 
end; 

with new_event do 
begin 

event_type := 'T'; 

serial_number := command_serial_number ; 
if wait_exists then 
time_key := 

inc_dtg_to_timekey (command_time , 
game_parameters . time_step_size) 
else 

time_key ;= 

inc_dtg_to_timekey (command_time , 
route_info [path_number ] ) ; 

path := route [ 1] [path_number + 1] 
end 
end; 

if unit_number (field_list [ 1] . str_val) <> 0 then 
begin 

new_event .unit_type := 'F'; 

new_event .unit_name ;= f ield_list [ 1 ] . str_val ; 
add_event (new_event) ; 
if wait_exists then 
begin 

wa i t_e vent. uni t_type := 'F'; 

wait_event . unit_name := f ield_list [ 1 ] . str_val ; 

add_event (wait_event) 

end 

end 

else if truck_number (field_list [l] . str_val) <> 0 then 
begin 
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new_event.unit_type := 'A'; 

new_event .unit_name := f ield_list [ 1] . str_val ; 

add_event (new_event) 

end 

else if field_list[l] .str_val = 'TRAIN' then 
begin 

new_event .unit_type ;= 'T'; 

new_event .unit_name := f ield_list[ 1] . str_val ; 
add_event (new_event) 
end 
else 

begin 

new_event . unit_type := 'A'; 
for i := 1 to number_of_amino_trucks do 
if amino_trucks[i] .convoy_name = 
f ield_l ist [ 1 ] . str_val then 
begin 

new_event .unit_name := 
ammo_trucks [ i ] . bumper_nuiiiber ; 

add_event (new_event) 
end 

end ; 

incr (path_number) 

until (path_number = 12) or (route [ 1] [path_number] 

null_string) 

end ; 

begin 

save_screen ; 
clear_area (2,3,79,22); 
display_cominand_help_l ine ; 
center_text (4, 'Move Unit', cyan); 
put_string (55, 6, 'Command number ;'); 
str (command_serial_n umber, command_number) ; 
put_string (72, 6, command_number) ; 
color_foreground (55,6,77,6, yellow); 
get_route ; 
if valid_input then 
begin 

get_movement_inf o ; 
if valid_input then 
begin 

create_event_records ; 
incr (command_serial_number) 
end 
end ; 

restore_screen 
end ; 



begin 
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suppress_inessages := false 
end. 
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{ 

Unit name : GAMEUTIL 

Purpose : this unit contains a number of general 
purpose procedures that are specific to the 
game and that are used by procedures or 
functions that are in more than one unit. 

) 

unit gameutil; 
interface 

uses dos, utility, global, taccess, tahigh; 
type 

time_relation_type = (before, after, same); 



var 

suppress_messages : boolean; 



function always_true (string_value : stringSO) ; boolean; 
procedure inc_time (var time : datetime; increment : 
integer) ; 

procedure dec_time (var time : datetime; decrement : 
integer) ; 

procedure dtg_to_datetime (dtg ; stringlS; var datetime_rec 
: datetime) ; 

procedure datetime_to_dtg (datetime_rec : datetime; var dtg 
: stringlS) ; 

procedure dtg_to_timekey (dtg : stringlS; var timekey : 
stringlO) ; 

function time_relative (timel, time2 ; datetime): 
time_relation_type ; 

function time_in_range (timel, time2, checktime : 
datetime) : boolean; 

function inc_dtg_to_timekey (var start_dtg : stringlS; 

increment ; integer ) : 

string ; 

procedure determine_day_or_night ; 

function normal_rv (mean ; integer; sd ; integer) : integer 



function 

function 

procedure 

procedure 

function 

function 

boolean ; 

function 



unit_number (name : strings) : integer; 
truck_number (name : strings) ; integer; 
add_event (new_event : event_record) ; 
delete_event ( record_number : longint) ; 
valid_unit (string_value : stringSO) : boolean; 
valid_ammo_truck (string_value : stringSO) : 

valid_convoy (string_value : stringSO) ; boolean; 
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function valid_node (string_value : stringSO) : boolean; 
procedure close_all_f iles ; 

implementation 

function always_true (string_value ; stringSO) ; boolean 
begin 

always_true := true 
end; 

^************************************************) 

{ 

Procedure name : INC_TIME 

Purpose : this procedure increments a time that 
is represented by the Turbo provided datetime 
type and returns it. The increment is to be 
specified in minutes. 

Parameters : TIME - datetime record to be 
incremented . 

INCREMENT - number of minutes to increment the 
datetime record. 



(************************************************) 
procedure inc_time (var time : datetime; increment : 
integer) ; 

begin 

with time do 
begin 

min := min + increment; 
if min > 59 then 
begin 

hour := hour + (min div 60) ; 
min := min - ((min div 60) * 60) 
end; 

if hour > 23 then 
begin 

day := day + (hour div 24) ; 

hour ;= hour - ((hour div 24) * 24) 

end ; 

if day > month_data [month]. days then 
begin 

day := day - month_data [month] .days; 
month := month + 1 
end ; 

if month > 12 then 
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begin 

month : = 1 ; 
year := year + 1 
end 
end ; 
end; 

(************************************************) 

{ 

Procedure name : DEC_TIME 

Purpose : this procedure decrements a time that 
is represented by the Turbo provided datetime 
type and returns it. The decrement is to be 
specified in minutes. 

Parameters : TIME - datetime record to be 
decremented. 

DECREMENT - number of minutes to decrement the 
datetime record. 



Called by : 



) 

(************************************************J 

procedure dec_time (var time : datetime; decrement 
integer) ; 



var 

dec_mins : integer; 
dec_hours : integer; 
dec_days : integer; 

begin 

dec_days := decrement div 1440; 

decrement := decrement mod 1440; 

dec_hours := decrement div 60; 

decrement := decrement mod 60; 

dec_mins := decrement; 

with time do 
begin 

if min >= dec_mins then 
min := min - dec_mins 
else 

begin 

min := 60 - (dec_mins - min) ; 

incr (dec_hours) 

end; 

if hour >= dec_hours then 
hour : = hour - dec_hours 
else 

begin 
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hour := 24 - (dec_hours - hour) ; 

incr (dec_days) 

end; 

while dec_days >= day do 
begin 

dec_days := dec_days - day; 
if month > 1 then 

month := month - 1 
else 

begin 

month := 12; 
year ;= year - 1 
end; 

day ;= month_data [month] . days 
end; 

day := day - dec_days 
end 
end ; 

{ 

Procedure name : DTG_TO_DATETIME 

Purpose : this procedure converts a string that 
represents a valid dtg and converts it to the 
date and time in the form of the datetime 
type record. 

Parameters : DTG - string that contains the dtg 
to be converted. 

DATETIME_REC - record to contain the result of 
the conversion. 



Called by ; 



} 

(************************************************) 
procedure dtg_to_datetime (dtg ; stringl5; var datetime_rec 
; datetime) ; 



var 

error_code : integer; 
begin 

dtg ;= remove_blanks (dtg) ; 

val (copy (dtg, 1, 2) , datetime_rec.day , error_code) ; 
if copy (dtg, 3, 2) = '24' then 
datetime_rec.hour ;= 0 
else 

val (copy (dtg, 3, 2), datetime_rec.hour , error_code) ; 
val (copy (dtg, 5, 2) , datetime_rec.min , error_code) ; 
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datetime_rec .month := ord (str_to_month (copy (dtg, 8, 3))) 
+ 1 ? 

val (copy (dtg, 11, 2) , datetime_rec. year , error_code) ; 
datetime_rec. year := datetime_rec. year + 1900 
end ; 

(************************************************) 

{ 

Procedure name : DATETIME_TO_DTG 

Purpose : this procedure converts a datetime 
record into a string that represents a valid 
dtg . 

Parameters : DATETIME_REC - record to be con- 
verted into a dtg string. 

DTG - string to contain the converted datetime 
record . 



Called by : 



} 

(************************************************) 
procedure datetime_to_dtg (datetime_rec : datetime; 
: stringlS) ; 



var dtg 



var 

string_val : stringlS; 



begin 

with datetime_rec do 
begin 

str (day, string_val) ; 
if day < 10 then 
begin 

dtg [ 1 ] : = ' 0 ' ; 

dtg [2] := string_val 
end 
else 

begin 

dtg [1] := string_val 

dtg [2] := string_val 
end ; 



[ 1 ] 

[ 1 ]; 

[ 2 ] 



dtg [3] := 

str (hour, 
if (hour = 
begin 
dtg [ 4 ] r 
dtg [5] r 
end 

else if hour 
begin 



blank; 

string_val) ; 
0) and (min 

• _ /O'* 

• ^9 

:= '4 ' 



= 0) then 



< 10 then 
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[ 1 ] 



dtg [4] 
dtg [5] 
end 
else 

begin 
dtg [4] 
dtg [5] 



end 
else 

begin 
dtg [6] 
dtg [7] 
end; 

dtg [8] := 
dtg [ 9 ] : = 



: = ' 0 ' ; 

;= string_val 



:= string_val 
:= string_val 



;= string_val 



:= string_val 
;= string_val 



[ 1 ] ; 

[ 2 ] 

[ 1 ] 

[ 1 ] ; 

[ 2 ] 

dtg, 



insert (inonth_data [month] .name, 
dtg [13] := blank; 

str (year - 1900, string_val) ; 
insert (string_val, dtg, 14) 
end 
end; 



'Z' i 
blank; 



end; 

str (min, string_val) ; 
if min < 10 then 
begin 

dtg [ 6 ] : = '0' ; 

dtg [7] 



10 ) ; 



(************************************************) 

{ 

Procedure name : DTG TO TIMEKEY 



Purpose : this procedure takes a string that 

is a valid dtg and converts it to a string that 
contains the same information but can be used 
as an alphabetic key for event records. 

Parameters : DTG - string that contains the valid 
dtg to converted for use as a key. 

TIMEKEY - string that will contain the key 
after conversion from dtg format. 



Called by : 



} 

^^•kicic'k'kicicic'kieicic^krkic-k-k'k'k'k'kic'k'k'k'k'k'kic'k'k'kic'k'k'kic'k'k'k'kic-k-k-k-kicic'j 

procedure dtg_to_timekey (dtg : stringl5; var timekey 
stringlO) ; 



var 

month : month_type ; 
month_val : string; 
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begin 

dtg := remove_blanks (dtg) ; 
insert (copy (dtg, 11, 2), timekey, 1); 
month := str_to_month (copy (dtg, 8, 3)); 
str (ord (month) + 1, month_val) ; 
if ord (month) < 10 then 

insert ('0' + month_val, timekey, 3) 
else 

insert (month_val, timekey, 3); 
insert (copy (dtg, 1, 6), timekey, 5) 
end; 

(^************************************************) 

{ 

Procedure name : TIME_RELATIVE 

Purpose : this procedure compares two records of 
type datetime and determines whether the first 
one represents a time that occurs before, after 
or at the same time as the second record. 



Parameters : TIMEl - the first record of type 
datetime to be compared against. 

TIME2 - the second record of type datetime to 
be compared against the first one. 



Called by : 



) 

(************************************************) 
function time_relative (timel, time2 : datetime): 
time_relation_type ; 



begin 

if timel. year < time2.year then time_relative := before 
else if timel. year > time2.year then time_relative := after 
else 

begin 

if timel. month < time2.month then time relative := before 



else if timel. month > time2. month then time_relative := 
after 
else 

begin 

if timel. day < time2.day then time_relative := before 
else if timel. day > time2.day then time_relative := 

after 

else 

begin 

if timel. hour < time2.hour then time_relative := 

before 
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else if timel.hour > time2.hour then time_relative 

:= after 

else 

begin 

if timel.min < time2.niin then time_relative : = 

before 

else if timel.min > time2.min then time_relative 

:= after 

else 

tiine_relative := same 

end 

end 

end 

end 

end; 

(************************************************) 

{ 

Procedure name : TIME_IN_RANGE 

Purpose : this procedure will check the third 
parameter of type datetime and indicate whether 
or not it falls between the times represented 
by the first two datetime records. 

Parameters ; TIMEl - the first record of type 
datetime to be compared against. 

TIME2 - the second record of type datetime to 
be compared against. 

CHECKTIME - the record of type datetime to be 
compared to the interval represented by TIMEl 
and TIME2. 



Called by : 



} 

function time_in_range (timel, time2, checktime : datetime): 
boolean; 



begin 

if time_relative (timel, time2) = before then 

time_in_range ;= ( (time_relative (checktime, timel) in 
[after, same]) and 

(time_relative (checktime, time2) in 

[before, same]) ) 
else 

time_in_range := ( (time_relative (checktime, time2) in 



[after, same]) and 

[before, same]) ) 
end; 



(time_relative (checktime, timel) in 
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(★★**********************************************J 

{ 

Procedure name : INC_DTG_TO_TIMEKEY 

Purpose : this procedure will take a string that 
represents a valid dtg and increment the time 
and date that it represents by the specified 
number of minutes and return the result in the 
form of a string to be used as a key to an 
event record. 

Parameters : STAPT_DTG - the string that 
represents a valid dtg to be incremented. 
INCREMENT - the number of minutes to 
increment the time represented by the dtg. 



Called by : 



) 

function inc_dtg_to_timekey (var start_dtg : stringlS; 

increment : integer ) : string; 



var 

f inal_datetime : datetime; 
final_dtg : stringl5; 
f inal_timekey : stringlO; 

begin 

dtg_to_datetime (start_dtg, f inal_datetime) ; 
inc_time (f inal_datetime, increment) ; 
datetime_to_dtg (f inal_datetime , final_dtg) ; 
dtg_to_timekey (final_dtg, f inal_timekey) ; 
start_dtg := final_dtg; 
inc_dtg_to_timekey := f inal_timekey 
end ; 

(^icicicicicitic'k'k-k-k'k'k'k'k'k'k'k'k'kic'k'kic'k'k'kit'k'k'k’k'k'k'k'k'k'k'k’k-k'k'k'k'k'k'k'k^ 

{ 

Procedure name : DETERMINE_DAY_OR_NIGHT 

Purpose : this procedure uses the BMNT end EENT 
entered by the player to determine whether the 
game time is at day or night. 

Parameters : none. 



Called by : 



) 

(***************************★********************) 
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procedure determine_day_or_night ; 
var 

sun_up : integer; 
sun_down : integer ; 
error : integer; 

begin 

val (copy (coinmanders_guidance. burnt, 1, 4) , sun_up, error) ; 
val (copy (conunanders_guidance.eent, 1, 4) , sun_down, 
error) ; 

day_time := ( ( (game_tiine.hour * 100) + game_tiiae.inin) >= 
sun_up) and 

( ( (game_tiine.hour * 100) + game_tiine.niin) < 

sun_down ) 
end; 

(************************************************) 

{ 

Procedure name ; N0RMAL_RV 

Purpose : this procedure will return a normally 
distributed random variable with the specified 
mean and standard deviation. 

Parameters : MEAN - the mean of the distribution. 

SD - the standard deviation of the 
distribution . 



Called by : 



} 

(************************************************) 
function normal_rv (mean : integer; sd : integer) : 



integer 



var 

x_random ; real; 
y_random : real; 
y_calculated : real ; 

begin 

repeat 

x_random := (random * 6.0) - 3.0; 
y_random := random * (1 / sqrt (2.0 * pi)); 
y_calculated ;= exp (-1.0 * sqr (x_random) / 2.0) / sqrt 
(2.0 * pi) 

until y_random <= y_calculated ; 
normal_rv := round (x_random * sd + mean) 
end ; 

(************************************************) 
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{ 

Procedure name : UNIT_NUMBER 

Purpose : this procedure will take the name of 
a unit and return the number of that unit in 
the array of firing units. It will return a 
0 if the name doews not correspond to a 
firing unit. 

Parameters : NAME - the name of the firing unit 
to be checked. 



Called by : 

} 

(************************************************) 
function unit_number (name : strings) : integer; 



var 

f iring_unit_number : integer; 
begin 

f iring_unit_number := 0; 
repeat 

incr ( f iring_unit_number) 

until ( f iring_unit_number = number_of_f iring_units) or 
(name = 

f iring_units [ f iring_unit_number ] . f iring_unit_name) ; 

if name <> f iring_units [ f iring_unit_number ] . f iring_unit_name 

then 

unit_number := 0 
else 

unit_number := f iring_unit_number 
end; 






Procedure name : TRUCK NUMBER 



Purpose : this procedure will take the bumper 
number of a truck and return the number of that 
truck in the array of ammo trucks. It will 
return a value of 0 if the bumper number does 
not correspond to a truck. 

Parameters : NAME - the bumper number of the 
truck to be checked. 



Called by ; 

} 

(^'k-k-krk'k’k'k-k'k'k'k'k’k’k’k’k’k-k’krk-k’kic-k'k-k-k-k-k-k'k-k-k-k-k-kic-k-kic-kic-k’k-k-k-k’k^ 

function truck_number (name : strings) : integer; 
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var 

ammo_truck_nuinber : integer; 
begin 

amino_truck_number ; = 0 ; 
repeat 

incr (amino_truck_n umber) 

until ( ammo_truck_number = number_of_ammo_trucks) or 

(name = ammo_trucks [ammo_truck_number ] .bumper_number) ; 

if name <> ammo_trucks[ammo_truck_number] .bumper_number then 

truck_number ;= 0 
else 

truck_number : = ammo_truck_number 
end; 

(********************************************★***) 

{ 

Procedure name : ADD_EVENT 

Purpose : this procedure will take the event 
passed to it and add it to the file that 
contains the events list of events not yet 
executed. 

Parameters : NEW_EVENT - the event record to be 
added to the events list. 



(************************************************) 
procedure add_event (new_event : event_record) ; 

var 

record_number : longint; 
command_number : strings ; 

begin 

str (new_event. serial_number , command_number) ; 
addrec (event_list, record_number, new_event) ; 
addkey (time_index, record_number , new_event . time_key) ; 
addkey (serial_number_index, record_number , command_n umber) ; 

flushfile (event_list) ; 
flushindex (time_index) ; 
flushindex (serial_number_index) ; 
if new_event . event_type = 'D' then 
begin 

suppress_messages := true; 
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case new_event . unit_type of 

'T' ; battalion_trains.pending_moveinent := true; 
'A' : ainino_trucks [truck_number 
(new_event.unit_name) ] .pending_moveinent ; = 
true; 

'F' ; f iring_units [unit_number 
(new_event.unit_name) ] .pending_moveinent ; = 
true 

end; 

suppress_messages := false 
end 
end ; 

(************************************************) 

{ 

Procedure name : DELETE_EVENT 

Purpose : this procedure will take the event 
corresponding to the record number passed to 
the procedure and delete it from the events 
list. If the event was related to a cancelled 
movement order it also takes the unit involved 
and moves it to the nearest node if it was 
on a path. 

Parameters : RECORD_NUMBER - the number of the 
record to be deleted from the events list. 



Called by : 



} 

(************************************************) 
procedure delete_event (record_number : longint) ; 



var 

event ; event_record ; 
command_number ; strings ; 
temp_path : path_record; 



begin 

getrec (event_list, record_number , event) ; 
str (event. serial_number, command_number) ; 
if event . event_type in [ 'O' , 'T' , 'W' , 'D' ] then 
begin 

suppress_messages := true; 
case event . unit_type of 

'T' : with battalion_trains do 
begin 

if not valid_node (battalion_trains . location) 

then 



begin 
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taread (paths, temp_path, location, 

exactinatch) ; 

location := temp_path. start_node 
end; 

pending_movement ;= false 
end; 

'h' : with ainmo_t rucks [truck_number (event .uni t_name) ] 
do 

begin 

if not valid_node 

( ammo_trucks [ truck_number 
(event. uni t_name) ] .location) then 

begin 

taread (paths, temp_path, location, 

exactraatch) ; 

location := temp_path. start_node 
end; 

pending_rnoveinent ;= false 
end; 

'F' : with f iring_units [unit_number ( event. unit_name ) ] 
do 

begin 

if not valid_node 

( f iring_units [unit_number 
(event .uni t_name) ] .location) then 

begin 

taread (paths, terap_path, location, 

exactraatch) ; 

location ;= terap_path . start_node 
end; 

pending_raoveraent := false 
end 

end; 

suppress_messages ;= false 
end; 

deletekey (serial_nuraber_index, record_number , 
comraand_nuraber) ; 

deletekey (time_index, record_number , event. tirae_key) ; 

deleterec (event_list, record_nuraber) ; 

flushfile (event_list) ; 

flushindex (time_index) ; 

flushindex (serial_number_index) 

end; 

(************************************************) 

{ 

Procedure narae : VALID_UNIT 

Purpose ; this procedure will determine whether 
or not the narae passed corresponds to a valid 
unit that it still alive. 
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name of unit to be 



Parameters ; STRING_VALUE - 
checked. 



Called by : 



} 



(^************************************************'^ 

{$F+) 

function valid_unit (string_value : stringSO) : boolean; 



var 



unit exists : boolean; 



begin 

string_value := upper_case (string_value) ; 
unit_exists := (unit_number (string_value) <> 0) and 
( f iring_units [unit_number (string_value) ]. 
sections_in_operating_condition > 0.0); 
if (not suppress_messages) and (not unit_exists) then 
display_error_message ('INPUT ERROR', null_string, 
null_string, 

'unit entered does not exist', 

null_string) ; 

valid_unit ;= unit_exists 

end; 

{$F-} 



************************************************ 



) 



Procedure name : VALID AMMO TRUCK 



Purpose : this procedure will determine whether 
or not the name passed corresponds to a valid 
truck that is still alive. 

Parameters : STRING_VALUE - name of truck to be 
checked. 



Called by : 

) 

(************************************************J 

($F+) 

function valid_ammo_truck (string_value ; stringSO) 
boolean; 



var 

ammo_truck_good : boolean; 
begin 

string_value := upper_case (string_value) ; 
ammo_truck_good := (truck_number (string_value) <> 0) and 



298 



(anuno_t rucks [ truck_number 
(string_value) ] . ef fective_percent > 0.0) and 

( aTnmo_t rucks [truck_number (string_value) ] . convoy_name = 
null_string) ; 

if (not suppress_messages) and (not amino_truck_good) then 
display_error_message ('INPUT ERROR', null_string, 

'truck entered does not exist', 
'or is part of another convoy', 

null_string) ; 

valid_amino_truck := amino_truck_good 
end; 

($F>) 



************************************************ 



) 



Procedure name : VALID CONVOY 



Purpose ; this procedure will determine whether 
or not the name passed corresponds to a valid 
convoy that is still in operation. 

Parameters : STRING_VALUE - name of convoy to be 
checked. 



Called by ; 



) 



^ic’k-k-k-k-krkrkicic'k'k’k’k'kicrk-kic-k-k'krkic’k'kic'k'k'k'k’k’k'k'k'kit’k’k'k'k'k'krk’k'k’krk'^ 

{$F+} 

function valid_convoy (string_value : stringSO) : boolean; 



var 

ammo_truck_number ; integer ; 
convoy_exists : boolean; 

begin 

string_value := upper_case (string_value) ; 
convoy_exists := false; 
if string_value <> null_string then 

for ammo_truck_number := l to number_of_ammo_trucks do 
if (ammo_t rucks [ammo_truck_number] . ef fective_percent 
> 0.0) and 

(string_value = 

ammo_trucks [ ammo_t ruck_number ] . convoy _name ) then 
convoy_exists := true; 

if (not suppress_messages) and (not convoy _exists) then 
display_error_message ('INPUT ERROR', null_string, 
null_string, 

'convoy does not exists', 

null_string) ; 

valid_convoy := convoy_exists 
end; 
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($F-) 



{ 

Procedure name ; VALID_NODE 

Purpose : this procedure will determine whether 
or not the name passed corresponds to a valid 
node created for this scenario. 

Parameters : STRING_VALUE - name of node to be 
checked . 



Called by : 



) 

{$F+} 

function valid_node (string_value : stringSO) : boolean 



var 

temp_node : node_record ; 
node_exists : boolean; 

begin 

string_value := upper_case (string_value) ; 

taread (nodes, temp_node, string_value, exactmatch) ; 

node_exists := ok; 

if (not suppress_messages) and (not node_exists) then 
display_error_message ('INPUT ERROR', null_string, 
null_string, 

'node does not exists', 

null_string) ; 
valid_node := node_exists 
end ; 

($F-) 

{ 

Procedure name : CLOSE_ALL_FILES 

Purpose : this procedure will close all files 
that are used throughout the game. 

Parameters : none. 



Called by : 



} 

^^^'^k^'kic'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'kicic'k'kicicicicicicic'k'k'kicic'k'k'kificic'k'k'k^ 

procedure close_all_f iles ; 



begin 
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taclose (nodes) ; 
taclose (paths) ; 
closefile (event_list) ; 
closeindex (time_index) ; 
closeindex (serial_number_index) 
closefile (messages) ; 
closeindex (message_type_index) 
end; 



begin 

end. 
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(************************************************) 

{ 

Unit name : UTILITY 

Purpose : this unit contains a number of general 
purpose procedures that perform functions 
related to input and output of information 
using menus and full screen editing. 

} 

f^************************************************'^ 

unit utility; 

interface 

{$!-} 

uses dos, crt; 
const 



null_string 


= 


/ / • 
r 






blank 


= 


#32 


f 




null 


= 


00; 






backspace 


= 


08; 






enter 


= 


13; 






escape 


= 


27; 






space 


= 


32 ; 






fl 


= 


59 


shl 


8 


f2 


= 


60 


shl 


8 


f3 


= 


61 


shl 


8 


f4 


= 


62 


shl 


8 


f5 


= 


63 


shl 


8 


f6 


= 


64 


shl 


8 


fl 


= 


65 


shl 


8 


f8 


= 


66 


shl 


8 


f9 


= 


67 


shl 


8 


flO 


= 


68 


shl 


8 


fll 


= 


133 


shl 


8 


fl2 


= 


134 


shl 


8 


home_key 


= 


71 


shl 


8 


up_arrow 


= 


72 


shl 


8 


page_up 


= 


73 


shl 


8 


lef t_arrow 


= 


75 


shl 


8 


right_arrow 


= 


77 


shl 


8 


end_key 


= 


79 


shl 


8 


down_arrow 


= 


80 


shl 


8 


page_down 


= 


81 


shl 


8 


insert_key 


= 


82 


shl 


8 


delete key 


= 


83 


shl 


8 


menu_xl_de fault = 


1; 




menu_x2_default = 


80; 




menu_yl_default = 


3; 




menu_y2_default = 


23; 
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menu_forecolor_default = white; 
inenu_backcolor_default = blue; 
option_f orecolor_default = blue; 
option_backcolor_default = lightgray; 
f ield_forecolor_default = yellow; 
f ield_backcolor_default = magenta; 
max_f ields_per_screen = 25; 
abort allowed = true; 



type 

stringl 
string2 
strings 
string4 
strings 
strings 
string? 
strings 
string9 
stringlO 
stringl5 
string20 
string25 
strings 0 
stringSS 
string40 
string45 
string50 
string55 
stringSO 
string65 
string? 0 
string?5 
stringSO 



string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 

string 



[ 1 ] 

[ 2 ] 

[3] 

[4] 

[5] 

[ 6 ] 

[7] 

[ 8 ] 

[9] 

[ 10 ] 
[15] 
[ 20 ] 
[25] 
[SO] 
[35] 
[40] 
[45] 
[50] 
[55] 
[60] 
[65] 
[70] 
[75] 
[80] 



string 

option_string = string; 
eval_function_type = function (string_value 
boolean; 

month_type = (JAN, FEB, MAR, APR, MAY, JUN, 
JUL, AUG, SEP, OCT, NOV, DEC, 



INVALID_MONTH) ; 

data_type = (int, float, ch, strg, eval, enum 
time) ; 

month_record = record 
days : integer; 
name : strings 

end; 

field_record = record 

label_string : stringSO; 
label_x, label_y : integer; 
str_val : stringSO; 
xl, yl, x2 , y2 : integer; 
case field_type : data_type of 



stringSO) 



dtg. 



SOS 



int 

float 

ch 

enum 

stringlO ) ; 

eval 



( int_value : longint; 
int_min_value, 
int_max_value : integer ) ; 

( float_value : real; 
float_min_value, 
float_max_value : real ) ; 

( valid_char_set ; set of char ) ; 

( nuinber_of_enuin_values ; integer; 
valid_enum_values : array [1..10] of 

( eval_function : eval_function_type ) ; 



end ; 

field_array = array [ 1 . .niax_f ields_per_screen] of 
f ield_record ; 

font = array [1..7] of array [1..7] of char; 



var 

key : integer; 

menu_xl, menu_x2 , menu_yl, menu_y2 : integer; 

menu_forecolor , menu_backcolor : integer; 

option_f orecolor , option_backcolor : integer; 

f ield_forecolor , f ield_backcolor : integer; 

default_mask : dirstr; 

letters : array ['A'..'Z'] of font; 

digits : array ['0'..'9'] of font; 

fontfile : file of font; 

number_of_f ields : integer; 

field_list : field_array; 

month_data : array [1..12] of month_record ; 



procedure incr (var number : integer) ; 
procedure deer (var number : integer) ; 

function remove_blanks (string_value : stringSO) : stringSO; 



function upper_case (string_value : stringSO): stringSO; 
function str_to_month (string_value ; strings) ; month_type; 



function 

function 

function 

procedure 

function 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

function 



valid_dtg (string_value : 
valid_time (string_value 
insert_on : boolean; 
toggle_insert ; 
get_key : integer; 
initial ize_screen ; 
save_screen; 
restore_screen ; 
print_screen ; 
remove_cursor ; 
restore_cursor ; 
beep ; 

printer_ready : boolean; 



stringlS) : boolean; 
Strings) ; boolean; 
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procedure color_background (xl, yl, x2 , y2, color : 
integer) ; 

procedure color_foreground (xl, yl, x2, y2, color : 
integer) ; 

procedure clear_area (xl, yl, x2, y2 : integer); 
procedure put_char (column, line : integer; character : 
char) ; 

function get_char (column, row : integer) ; char; 
procedure put_string (column, line : integer; text : 
strings 0) ; 

procedure put_font_string (column, line : integer; text ; 
stringlO; color : integer); 

procedure center_text (line : integer; text : strings 0; 
color : integer) ; 

procedure draw_window (xl, yl, x2, y2 : integer; 

forecolor, backcolor : integer; 
title : stringSO) ; 

procedure shade_window (xl, yl, x2, y2, color ; integer); 
procedure display_error_message (title, linel, line2, lines, 
line4 : string55) ; 

function edit_field (field : field_record) : stringSO; 

procedure display_edit_screen_help_line ; 

procedure display_edit_list_help_line ; 

procedure display_command_help_line ; 

procedure display_add_record_help_line; 

procedure edit_screen (var number_of_f ields : integer; 

var field_data : field_array; 
abort_possible : boolean) ; 
function menu_selection (menu_title : stringSO; 

menu_options : option_string) : 

integer; 

function get_file (prompt, message : stringSO; search_mask 
: dirstr) : pathstr; 



implementation 

type 

screen = array [1..25] of array [1..S0] of integer; 

var 

keyboard_status : byte absolute $0040: $0017; 

register_values : registers; 

screen_image : screen; 

cursor_x ; integer; 

cursor_y : integer; 

stack_pointer ; integer; 

screen_image_stack : array [1..7] of screen; 

cursor_x_stack : array [1..7] of integer; 

cursor_y_stack : array [1..7] of integer; 

loop : char; 
const 
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screen_location : ^screen = ptr ($B800, $0000) ; 
procedure incr (var number : integer) ; 
begin 

number := number + 1 
end ; 

procedure deer (var number ; integer) ; 
begin 

number := number - 1 
end ; 

function remove_blanks (string_value : stringSO) : stringSO; 
var 

position : byte; 
begin 

position ;= pos (blank, string_value) ; 
while position <> 0 do 
begin 

delete (string_value, position, 1) ; 
position := pos (blank, string_value) 
end ; 

remove_blanks := string_value 
end ; 

function upper_case (string_value : stringSO): stringSO; 
var 

position : byte; 
begin 

for position ;= 1 to length (string_value) do 

string_value [position] := upcase (string_value 
[position] ) ; 

upper_case := string_value 
end ; 

function str_to_month (string_value : strings) : month_type; 



begin 

if string_value = 'JAN' then 
str_to_month := JAN 
else if string_value = 'FEB' then 
str_to_month ; = FEB 
else if string_value = 'MAR' then 
str to month := MAR 
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then 



else if string_value = 'APR' 
str_to_month := APR 
else if string_value = 'MAY' then 
str_to_month : = MAY 
else if string_value = 'JUN' then 
str_to_month : = JUN 
else if string_value = 'JUL' then 
str_to_month : = JUL 
else if string_value = 'AUG' then 
str_to_month : = AUG 
else if string_value = 'SEP' then 
str_to_month := SEP 
else if string_value = 'OCT' then 
str_to_month : = OCT 
else if string_value = 'NOV' then 
str_to_month := NOV 
else if string_value = 'DEC' then 
str_to_inonth : = DEC 
else 

str_to_month ;= INVALID_MONTH 
end; 



function valid_dtg (string_value : stringlS) : boolean; 



var 

date : longint; 
time : longint; 
year : longint; 
zone : char; 
month : month_type ; 
error_code : integer; 

begin 

string_value ;= upper_case (string_value) ; 
string_value ;= remove_blanks (string_value) ; 
if length (string_value) = 12 then 
begin 

val (copy (string_value, 1, 2), date, error_code) ; 
val (copy (string_value, 3, 4), time, error_code) ; 
val (copy (string_value, 11, 2), year, error_code) ; 
zone := char (string_value [7]); 

month := str_to_month (copy (string_value, 8, 3)); 
valid_dtg ;= (error_code = 0) and 

(month <> INVALID_MONTH) and 
(date > 0) and (date <= month_data [ord 
(month) ] .days) and 

(time >= 0) and (time <= 2400) and 
(zone in [ 'A' . . 'Z' ] ) and 
(year >= 70) and (year <= 99) 

end 

else 
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valid_dtg := false 
end; 

function valid_time (string_value ; strings): boolean; 
var 

time : longint; 
zone : char; 
error_code : integer; 

begin 

string_value := upper_case (string_value) ; 
val (copy (string_value, 1, 4), time, error_code) ; 
zone := char (string_value [5]); 
valid_time := (error_code = 0) and 

(time >= 0) and (time <= 2400) and 
(zone in [ 'A' . . 'Z ' ] ) 

end; 

function insert_on : boolean; 
begin 

insert_on := ( (keyboard_status and $80) = $80) 
end; 

procedure toggle_insert ; 
begin 

if insert_on then 

keyboard_status ;= keyboard_status and $7F 
else 

keyboard_status ;= keyboard_status or $80 
end ; 

function get_key : integer; 
var 

key_value : integer; 
begin 

key_value := ord (readkey) ; 
if key_value = null then 

key_value := ord (readkey) shl 8; 
get_key ;= key_value 
end ; 

procedure initial ize_screen; 
begin 

window (1,1,80,25); 
textbackground (black) ; 



308 



textcolor (yellow) ; 

clrscr 

end; 

procedure save_screen ; 
begin 

incr (stack_pointer) ; 

screen_image_stack [stack_pointer] := screen_location^ 
cursor_x_stack [stack_pointer] ;= wherex; 
cursor_y_stack [stack_pointer] := wherey 
end; 

procedure restore_screen; 
begin 

screen_location^ := screen_image_stack [stack_pointer] 
gotoxy (cursor_x_stack [stack_pointer] , cursor_y_stack 
[stack_pointer] ) ; 
deer (stack_pointer) 
end; 

procedure print_screen ; 
begin 

intr ($5, register_values) 
end; 

procedure remove_cursor ; 
begin 

gotoxy (1,1) ; 

register_values . ax := $0100; 
register_values . cx ;= $2607; 
intr ($10, register_values) 
end ; 

procedure restore_cursor ; 
begin 

register_values. ax ;= $0100; 
register_values.cx := $0607; 
intr ($10, register_values) 
end; 

procedure beep; 
begin 

sound (1000) ; 
delay (100); 
nosound 
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end ; 



function printer_ready : boolean; 
begin 

register_values . ah ;= $02; 
register_values.dx := $00; 
intr ($17, register_values) ; 

printer_ready := (register_values. ah and $08) = $00 
end; 

procedure color_background (xl, yl, x2, y2, color : 
integer) ; 

var 

line , 

column : integer; 
value : integer; 

begin 

for line := yl to y2 do 

for column := xl to x2 do 
begin 

value := screen_location^ [line, column] ; 
value := (value and $0FFF) + (color shl 12) ; 
screen_location^ [ line , column] := value 
end 

end ; 

procedure color_foreground (xl, yl, x2 , y2 , color : 
integer) ; 

var 

line , 

column : integer; 
value : integer; 

begin 

for line := yl to y2 do 

for column := xl to x2 do 
begin 

value ;= screen_location^ [line, column] ; 
value := (value and $F0FF) + (color shl 8) ; 
screen_location^ [line, column] := value 
end 

end ; 

procedure clear_area (xl, yl, x2 , y2 : integer); 
var 

line , 
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column : integer; 
value : integer; 

begin 

for line := yl to y2 do 

for column := xl to x2 do 
begin 

value := screen_location^ [line, column] ; 
value ;= (value and $FFOO) + ord (space) ; 
screen_location^ [line, column] ;= value 
end 

end; 

procedure put_char (column, line : integer; character : 
char) ; 

var 

value : integer; 
begin 

value := screen_location^ [line, column] ; 
value := (value and $FFOO) + ord (character) ; 
screen_location^ [line, column] := value 
end ; 

function get_char (column, row ; integer) : char; 
begin 

get_char := chr ( lo (screen_location^ [row, column])) 
end ; 

procedure put_string (column, line : integer; text : 
stringSO) ; 

var 

i : integer; 
begin 

for i := 1 to length (text) do 

put_char (column + i - 1, line, text [i]) 
end ; 

procedure put_font_string (column, line : integer; text : 
stringlO; color : integer); 

var 

k : integer; 

procedure put_font_char (column, line : integer; character 
char; color : integer) ; 
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var 



i, j : integer; 
begin 

if (column < 74) and (line < 19) then 
for i := 1 to 7 do 
for j := 1 to 7 do 
begin 



if (character in 


['a'. . 'z']) 


or 


■ (character 


in 


['A'..'Z']) then 

put char ( i + 


column - 1, 


j 


+ line 


- 1, 


letters 


[character] [j, i]) 

else if character in ['0'..' 
put_char ( i + column - 1 , 


9'] 

j 


then 
+ line 


- 1, 


digits 


[character] [j, i]) 
else 

put_char ( i + 


column - 1, 


j 


+ line 


- 1, 


blank) ; 


color_foreground 


(i + column 


- 


j + 


line 


- 1, 




i + column 


- 


1 f j + 


line 


- 1, 



end 

end ; 



begin 

for k := 0 to length (text) - 1 do 

put_font_char (column + (k * 8) , line, text [k+1], color) 

end ; 

procedure center_text (line : integer; text : stringSO; 
color : integer) ; 



var 

indent : integer; 
begin 

indent := ( ( (lo (windmax) - lo(windmin) + 1) - length (text)) 
div 2) + 1; 

put_string ( (lo (windmin) + indent), line, text); 
color_foreground (( lo (windmin) + indent), line, 

(lo (windmin) + indent + length (text) - 

1) , line, color) 
end ; 

procedure draw_window (xl, yl, x2, y2 : integer; 

forecolor, backcolor : integer; 
title : stringSO) ; 



var 



line, 
column , 
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indent : integer; 
begin 

clear_area (xl,yl,x2,y2) ; 

color_background (xl,yl,x2 ,y2 , backcolor) ; 
color_foreground (xl,yl,x2,y2, forecolor); 
for column := xl to x2 do 
begin 

put_char (column, yl, #205) ; 
put_char (column, y2, #205); 
end ; 

for line := yl to y2 do 
begin 

put_char (xl, line, #186) ; 
put_char (x2, line, #186); 
end; 

put_char (xl, yl, #201) ; 
put_char (xl, y2 , #200); 
put_char (x2, yl, #187); 
put_char (x2, y2 , #188); 
if length (title) <> 0 then 
begin 

indent := ( (x2 - xl + 1) - (length (title) + 2)) div 2; 
put_string (xl + indent, yl, ' '+ title +' ') 
end 
end ; 

procedure shade_window (xl, yl, x2 , y2 , color : integer); 
var 

position : integer; 
begin 

position := xl + 1; 
repeat 

put_char (position, y2 + 1, #219) ; 

color_foreground (position, y2 + 1, position, y2 + 1, 
color) ; 

incr (position) 
until position > x2 + 2; 
position := yl + 1; 
repeat 

put_char (x2 + 1, position, #219) ; 
put_char (x2 + 2, position, #219); 

color_foreground (x2 + 1, position, x2 + 2, position, 
color) ; 

incr (position) 
until position > y2 
end; 
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procedure display_error_message (title, linel, line2, line3, 
line4 : string55) ; 

begin 

save_screen ; 

draw_window (21,9,60,17, yellow, red, title); 
shade_window (21,9,60,17, black); 
center_text (11, linel, yellow) ; 
center_text (12, line2, yellow); 
center_text (13, line3, yellow); 
center_text (14, line4, yellow); 
center_text (16, 'press any key', white); 
key : = get_key ; 
key := null; 
restore_screen 
end; 

function edit_field (field : f ield_record) : stringSO; 
var 

screen_string : stringSO; 
exit_edit_f ield : boolean; 
i ; integer; 

procedure highlight_f ield (field : field_record) ; 
begin 

with field do 
begin 

color_background (xl-1, yl, x2+l, y2 , field_backcolor) ; 
color_foreground (xl-1, yl, x2+l, y2 , field_forecolor) ; 
if field_type in [strg, dtg] then 
begin 

i : = x2 + 1 ; 
repeat 

deer ( i) ; 

gotoxy (i + 1, yl) 

until (i = xl - 1) or (get_char (i, yl) <> blank) 
end 
else 

gotoxy (xl, yl) 

end 

end; 

procedure restore_f ield (field : f ield_record) ; 
begin 

with field do 
begin 

color_background (xl-1, yl , x2+l, y2 , menu_backcolor) ; 
color_foreground (xl-1, yl, x2+l, y2, menu_forecolor) ; 
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if field_type in [strg, dtg] then 
begin 

i : = x2 + 1 ; 
repeat 

deer (i) ; 

gotoxy (i + 1, yl) 

until (i = xl - 1) or (get_char (i, yl) <> blank) 
end 
else 

gotoxy (xl, yl) 

end 

end; 

procedure display_edit_f ield_help_screen; 
begin 

save_screen; 
remove_cursor ; 

draw_window (16,5,65,19, blue, lightgray, 'help'); 
shade_window (16,5,65,19, black); 

center_text (12, 'NO HELP AVAILABLE AT THIS TIME', blue) 

center_text (17, 'press any key to return', blue) ; 

key := get_key; 

key := null; 

restore_cursor ; 

restore_screen 

end; 

begin 

restore_cursor ; 
if insert_on then 
begin 

put_string (77,25, 'INS'); 

color_foreground (77,25,79,25, blue) 
end 
else 

put_string (77,25, ' '); 

highlight_f ield (field) ; 
exit_edit_f ield := false; 
repeat 

key : = get_key ; 
case key of 

up_arrow, down_arrow, escape, enter, 
f2, f3, f4, f5, f6, f7, f8, f 9 , flO, 
page_up, page_down ; 

exit_edit_f ield := true; 
fl : display_edit_f ield_help_screen; 
insert_key : begin 

if insert_on then 
begin 

put_string (77,25, 'INS'); 
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(i, 



(i/ 



backspace 



field. yl) ) ; 



delete_key 



field. yl) ) ; 



color_foreground (77,25,79,25, blue) 
end 
else 

put_string (77,25, ' ') 

end; 

if wherex = field. xl then 
beep 

else if wherex = field. x2 + i then 
begin 

gotoxy (wherex - 1, field. yl) ; 
put_char (wherex, wherey, blank) 
end 
else 

begin 

gotoxy (wherex - 1, field. yl) ; 
for i := wherex + i to field. x2 do 

put_char (i - 1, field. yl, get_char 

put_char (field. x2, field. yl, blank) 
end ; 

if wherex = field. x2 + 1 then 
beep 
else 

begin 

for i := wherex + 1 to field. x2 do 

put_char (i - 1, field. yl, get_char 



put_char (field. x2, field. yl, blank) 
end; 

left_arrow ; if wherex = field. xl then 

beep 

else 

gotoxy (wherex - 1, field. yl) ; 
right_arrow ; if wherex = field. x2 + i then 

beep 

else 

gotoxy (wherex + i, field. yl) ; 
home_key : gotoxy (field. xl, field. yl) ; 
end_key : begin 

i := field. x2 + 1; 
repeat 

deer (i) ; 

gotoxy (i + 1, field. yl) 
until (i = field. xl - 1) or 

(get_char (i, field. yl) <> blank) 



end ; 



else 

begin 

if insert_on then 
begin 

if wherex = field. x2 + 1 then 
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1, 



beep 
else 

begin 

for i := field. x2 downto wherex + 1 do 
put_char (i, field. yl, get_char (i - 

field . yl) ) ; 

put_char (wherex, field. yl, chr (key)); 
gotoxy (wherex + 1, field. yl) 
end 

end 
else 

begin 

if wherex = field. xl then 
begin 

for i ;= field. xl to field. x2 do 
put_char (i, field. yl, blank) ; 
put_char (field. xl, field. yl, chr (key)); 
gotoxy (field. xl + 1, field. yl) 
end 

else if wherex = field. x2 + 1 then 
beep 
else 

begin 

put_char (wherex, field. yl, chr (key)); 

gotoxy (wherex + 1, field. yl) 

end 

end 

end 

end 

until exit_edit_f ield ; 

for i := field. xl to field. x2 do 

screen_string [i - field. xl +1] := get_char (i, 
field . yl) ; 
i := field. x2 + 1; 
repeat 

deer (i) 

until (i = field. xl - 1) or (get_char (i, field. yl) <> 
blank) ; 

screen_string [0] := chr (i - field. xl + 1) ; 

edit_field := screen_string; 

restore_f ield (field) ; 

remove_cursor 

end; 

procedure display_edit_screen_help_line ; 
begin 

clear_area (1,25,80,25); 
put_char (1, 25, #24) ; 
put_char (2, 25, #25); 
put_char (3, 25, #60); 
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put_char (4, 25, #217); 

put_string (5, 25, '-Choose Fl-Help F4-Print screen 
ESC-Done' ) ; 

color_foreground (1,25,4,25, red); 
color_foreground (5,25,11,25, blue); 
color_foreground (14,25,15,25, red); 
color_foreground (16,25,20,25, blue); 
color_foreground (23,25,24,25, red); 
color_foreground (25,25,37,25, blue); 
color_foreground (40,25,42,25, red); 
color_foreground (43,25,47,25, blue); 
color_background (1,25,80,25, lightgray) 
end ; 



procedure display_edit_list_help_line ; 



begin 

clear_area (1,25, 
put_char (1, 25, 
put_char (2, 25, 
put_char (3, 25, 
put_char (4, 25, 
put_string (5, 25 
put_string (13, 2 



color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
color_ 
end ; 



foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

foreground 

background 



80,25) ; 

#24) ; 

#25) ; 

#60) ; 

#217) ; 

, '-Choose'); 

5, 'Fl-Help F4-Print F5-Add F6-Delete '+ 
'F7-Edit F8-Search ESC-Done'); 



begin 

clear_area (1,25 
put_char (1, 25, 
put_char (2, 25, 
put_char (3, 25, 



(1,25,4,25, red) ; 


(5,25,11,25, 


blue) ; 


(13,25,14,25, 


red) ; 


(15,25,20,25, 


blue) ; 


(21,25,22,25, 


red) ; 


(23,25,29,25, 


blue) ; 


(30,25,31,25, 


red) ; 


(32,25,36,25, 


blue) ; 


(37,25,38,25, 


red) ; 


(39,25,46,25, 


blue) ; 


(47,25,48,25, 


red) ; 


(49,25,54,25, 


blue) ; 


(55,25,56,25, 


red) ; 


(57,25,64,25, 


blue) ; 


(65,25,67,25, 


red) ; 


(68,25,72,25, 


blue) ; 


(1,25,80,25, 


lightgray) 


_cominand_help 


_line ; 


80,25) ; 




#24) ; 




#25) ; 




#60) ; 
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put_char (4, 25, #217); 

put_string (5, 25, '-Choose Fl-Help F2-Execute command '+ 



color_f oreground 
color_foreground 
color_f oreground 
color_f oreground 
color_f oreground 
color_f oreground 
color_f oreground 
color_f oreground 
color_f oreground 
color_f oreground 
color_background 
end ; 



'F4-Print ESC-Abort' 
(1,25,4,25, red) ; 
(5,25,11,25, blue) ; 
(14,25,15,25, red); 
(16,25,20,25, blue) ; 
(23,25,24,25, red) ; 
(25,25,40,25, blue) ; 
(43,25,44,25, red) ; 
(45,25,50,25, blue) ; 
(53,25,55,25, red) ; 
(56,25,61,25, blue) ; 
(1,25,80,25, lightgray) 



procedure display_add_record_help_l ine ; 
begin 

clear_area (1,25,80,25); 
put_char (1, 25, #24); 
put_char (2, 25, #25); 
put_char (3, 25, #60); 
put_char (4, 25, #217); 

put_string (5, 25, '-Choose Fl-Help F2-Add record '+ 

'F4-Print ESC-Abort'); 
color_foreground (1,25,4,25, red); 
color_f oreground (5,25,11,25, blue); 
color_f oreground (14,25,15,25, red); 
col or_f oreground (16,25,20,25, blue); 
color_foreground (23,25,24,25, red); 
color_f oreground (25,25,35,25, blue); 
color_foreground (38,25,39,25, red); 
color_foreground (40,25,45,25, blue); 
color_foreground (48,25,50,25, red); 
color_foreground (51,25,56,25, blue); 
color_background (1,25,80,25, lightgray) 
end; 



procedure edit_screen (var number_of_f ields : integer; 

var field_data : field_array; 
abort_possible : boolean) ; 



var 

field_number : integer; 
error_value : integer; 
good_value_entered ; boolean; 
i : integer; 

procedure display_edit_screen_help_screen ; 
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begin 

save_screen ; 
remove_cursor ; 

draw_window (16,5,65,19, blue, lightgray, 'help'); 
shade_window (16,5,65,19, black); 

center_text (12, 'NO HELP AVAILABLE AT THIS TIME', blue) ; 

center_text (17, 'press any key to return', blue); 

key := get_key; 

key ;= null; 

restore_cursor ; 

restore_screen 

end ; 

procedure print_bad_int_message ; 



begin 

display_error_message 



or' , 

values' ) 
end ; 



('INPUT ERROR', 

'integer input error', 
null_string, 

'input is either not a valid number 
'is out of allowable range of 



procedure print_bad_f loat_message ; 



begin 

display_error_message 



or', 

values' ) 
end ; 



('INPUT ERROR', 

'floating point input error', 
null_string, 

'input is either not a valid number 
'is out of allowable range of 



procedure print_bad_dtg_message ; 



begin 

display_error_message 



89" ' , 
end ; 



('INPUT ERROR', 

'dtg input format error' , 
null_string, 

'proper format : ''05 0530Z JAN 

'spaces may be omitted') 



procedure print_bad_time_message ; 
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begin 

display_error_message ('INPUT ERROR', 

'time input error', 
null_string, 

'proper foxrmat ; ''0530Z''', 

null_string) 

end ; 

procedure print_bad_chr_message ; 
begin 

display_error_message ('INPUT ERROR', 

'character input error', 
null_string, 

'character entered is not allowed', 
'in this field') 

end ; 

procedure print_bad_enum_message ; 
begin 

display_error_message ('INPUT ERROR', 

'character input error', 
null_string, 

'characters entered are not allowed', 
'in this field') 

end ; 
begin 

save_screen ; 

for f ield_number := 1 to nuitiber_of_f ields do 
with field_data [ f ield_number ] do 
begin 

put_string (label_x, label_y, label_string) ; 
if length (str_val) > (x2 - xl + 1) then 
str_val [0] := chr (x2 - xl + 1) ; 
if field_type in [int, float] then str_val := 
remove_blanks (str_val) ; 
put_string (xl, yl, str_val) 
end; 

f ield_number := 1; 
repeat 

with field_data [ f ield_number ] do 
begin 

str_val := edit_field (field_data [ f ield_nuitiber] ) ; 
if (key = enter) or (key = up_arrow) or (key = 
down_arrow) or 

(key = page_up) or (key = page_down) or (key = f4) 
or 

((key = escape) and not (abort_possible) ) or 
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((key = f2) and (abort_possible) ) then 
begin 

case field_type of 
int : begin 

val (str_val, int_value, error_value) ; 
good_value_entered := (error_value = 0) 

and 



int_niin_value) and 
int_max_value) ; 



float ; 



(int_value >= 
(int_value <= 

if not good_value_entered then 
print_bad_int_message 
end ; 
begin 

val (str_val, float_value, error_value) 



and 

f loat_inin_value) 
f 1 oa t_max_value ) 



ch 



strg 



enum 



dtg 



(str_val) ; 



good_value_entered := (error_value = 0) 



and 



(float_value >= 
(float_value <= 



if not good_value_entered then 
print_bad_f loat_message 
end ; 

: begin 

str_val := upper_case (str_val) ; 
good_value_entered := 

str_val [1] in valid_char_set ; 
if not good_value_entered then 
print_bad_chr_message 
end ; 

: begin 

good_value_entered := true 
end ; 

: begin 

str_val ;= upper_case (str_val) ; 
good_value_entered ;= false; 
for i := 1 to nuiTiber_of_enuin_values do 
good_value_entered := 

str_val = valid_enum_values [i]; 
if not good_value_entered then 
print_bad_enum_message 
end ; 

: begin 

str_val := upper_case (str_val) ; 
good_value_entered := valid_dtg 

if not good_value_entered then 
print_bad_dtg_message 
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time 



end; 

: begin 

str_val := upper_case (str_val) ; 
good_value_entered := valid_time 

(str_val) ; 

if not good_value_entered then 
print_bad_time_message 
end ; 

eval ; good_value_entered ;= eval_f unction 

(str_val) 

end; 

if good_value_entered then 
case key of 

f4 : print_screen ; 

up_arrow : if field_number = l then 

begin 

if not abort_possible then 
field number := 



number of fields 



end 

else 

deer ( f ield_number) ; 

down_arrow, 

enter : if field_number = 

number_of_f ields then 

field_number := 1 
else 

incr ( f ield_number) 

end 



end 



end 

until (key = escape) or 

( (key = page_down) and not abort_possible) or 
( (key = page_up) and not abort_possible) or 
( (key = enter) and (number_of_f ields = 1) ) or 
((key = f2) and (abort_possible) ) ; 
restore_screen 
end ; 



function menu_selection 
integer; 



(menu_title : stringSO; 
menu_options : option_string) : 



type 

menu_option = record 
option : stringSO; 
option_number : integer; 
xl, yl, x2 , y2 : integer 
end; 

option_array = array [1..20] of menu_option; 
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var 



option_list ; option_array ; 
number_menu_options : integer; 



procedure create_option_list 
option_array ; 
integer) ; 



(menu_options : option_string; 
var option_list : 

var nuinber_inenu_options ; 



var 

position : integer; 
option_string_length : integer; 
opt_num : integer ; 
skip_lines : integer; 

begin 

position ;= 1; 
number_inenu_options := 0; 
while inenu_options [position] <> '\' do 
begin 

incr (number_iT>enu_options) ; 
with option_list [number_inenu_options] do 
begin 

option_string_length := 0; 

while not (ii»enu_options [position] in ['\'/'|']) do 
begin 

incr (option_string_length) ; 

option [ option_string_length] := inenu_options 

[position] ; 

incr (position) 
end ; 

option [0] := chr (option_string_length) ; 

option_nuii>ber := number_roenu_options ; 
xl := ( (it>enu_x2 - menu_xl + 1 - length (option)) 
div 2) + inenu_xl; 

x2 ;= xl + length (option) - 1; 
if menu_options [position] = ' | ' then incr 
(position) 

end 
end ; 

if nuinber_itienu_options < 10 then 
skip_lines := 

( ( (inenu_y2 - roenu_yl) - (2 * nuitiber_menu_options - 1) ) 
div 2) + 1 
else 

skip_lines := 

( ( (itienu_y2 - inenu_yl) - (2 * ( (number_inenu_options + 

1) div 2) - 1) ) div 2) + 1; 

for opt_num := l to number_itienu_options do 
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with option_list [opt_num] do 
begin 

if number_menu_options < 10 then 
begin 

xl := ( (menu_x2 - menu_xl + 1 - length (option)) 
div 2) + menu_xl; 

yl := (menu_yl + skip_lines - 1) + (2 * opt_num - 

1) 

end 

else 

begin 

if opt_num <= (number_inenu_options + 1) div 2 then 
begin 

yl := (menu_yl + skip_lines - 1) + (2 * opt_num 

- 1 ) ; 

xl := menu_xl + 4 
end 
else 

begin 

yl := (menu y l + skip_lines - 1) + 

(2 * (opt_num - ( (number_menu_options + 1) 

div 2) ) - 1) ; 

xl := menu_xl + ( (menu_x2 - menu_xl + 1) div 2) 

+ 2 

end 
end ; 

x2 := xl + length (option) - 1; 

y2 := yl 

end 

end ; 

procedure display_menu_screen (menu_title : stringSO; 

option_list : option_array ; 
nurober_menu_options : 

integer) ; 

procedure display_options (option_list : option_array ; 

number_menu_options : integer) ; 



var 

opt_num : integer; 
begin 

for opt_num ;= 1 to number_menu_options do 
with option_list [opt_num] do 
put_string (xl, yl, option) 

end; 

procedure display_menu_help_line ; 
begin 
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clear_area (1,25,80,25); 
put_char (1, 25, #24); 
put_char (2, 25, #25); 
put_string (3, 25, '-Choose'); 
put_char (12, 25, #60); 
put_char (13, 25, #217); 
put_string (14, 25, '-Select'); 
put_string (23, 25, 'Fl-Help'); 
color_foreground (1,25,2,25, red) 



color_foreground 
color_foreground 
color_foreground 
color_foreground 
color_foreground 
color_background 
end; 



(3,25,9,25, blue) ; 
(12,25,13,25, red) ; 
(14,25,20,25, blue) ; 
(23,25,24,25, red); 
(25,25,30,25, blue) ; 
(1,25,80,25, lightgray) 



begin 

draw_window (menu_xl, menu_yl, menu_x2, menu_y2, 

menu_forecolor , menu_backcolor , menu_title) ; 
display_options (option_list , number_menu_options) ; 
display_menu_help_line 
end ; 



function get_option 
integer; 



(option_list : option_array ; 
number_menu_options : integer) : 



var 

opt_num : integer; 

procedure highlight_option (field : menu_option) ; 
begin 

with field do 
begin 

color_background (xl-1, yl, x2+l, y2 , option_backcolor) 
color_f oreground (xl-1, yl, x2+l, y2 , option_forecolor ) 
end 
end; 

procedure restore_option (field : menu_option) ; 
begin 

with field do 
begin 

color_background (xl-1, yl, x2+l, y2, menu_backcolor) ; 
color_foreground (xl-1, yl, x2+l, y2, menu_forecolor) 
end 
end ; 
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procedure display_menu_help_screen ; 
begin 

save_screen; 

draw_window (16,6,65,20, blue, lightgray, 'help'); 
shade_window (16,6,65,20, black); 

center_text (13, 'NO HELP AVAILABLE AT THIS TIME', blue) ; 

center_text (19, 'press any key to return', blue); 

key : = get_key ; 

key := null; 

restore_screen 

end; 

begin 

opt_num : = 1 ; 

highlight_option (option_list [opt_num]); 
repeat 

key : = get_key ; 
case key of 

enter : 

get_option := opt_num; 
up_arrow : 
begin 

restore_option (option_list [opt_num]); 
if opt_num = 1 then 

opt_num := number_inenu_options 
else deer (opt_num) ; 

highlight_option (option_list [opt_num]) 
end ; 

down_arrow : 
begin 

restore_option (option_list [opt_num]); 
if opt_num = nuinber_inenu_options then 
opt_nuin : = 1 
else incr (opt_num) ; 

highlight_option (option_list [opt_num]) 
end ; 

left_arrow : 

if (number_menu_options >= 10) and 

(opt_num > (nuinber_menu_options + 1) div 2) 

then 

begin 

restore_option (option_list [opt_num]); 
opt_num := opt_num - ( (number_menu_options + 

1) div 2) ; 

highlight_option (option_list [opt_num]) 
end ; 

right_arrow : 

if (nuitiber_menu_options >= 10) and 

(opt_num + ( (nuinber_menu_options + 1) div 2) 
<= number_menu_options) then 
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begin 

restore_option (option_list [opt_num]); 
opt_num := opt_num + ( (nuinber_inenu_options + 

1) div 2) ; 

highlight_option (option_list [opt_num]) 
end; 

fl : 

display_menu_help_screen 

end 

until key = enter 
end ; 

begin 

save_screen; 

create_option_list (menu_options , option_list, 
number_menu_options) ; 

display_menu_screen (menu_title, option_list, 
number_inenu_options) ; 

menu_selection := get_option (option_list , 
nuTnber_menu_options) ; 
restore_screen 
end ; 



function get_file (prompt, message : stringSO; search_mask 
dirstr) : pathstr; 

const 

number_f ields = 1; 

fields : array [ 1 .. number_f ields ] of field_record = 

( (label_string : 'Directory : ' ; label_x : 18 

label_y : 7; 

str_val : null_string ; 
xl : 31; yl : 7; x2 : 60; y2 : 7; 
field_type : strg) ) ; 
f ile_window_xl = 10; 
f ile_window_yl = 10; 
f ile_window_x2 = 71; 
f ile_window_y2 = 21; 
f ile_window_backcolor = cyan; 
file_window forecolor = blue; 



type 

f ile_list_ptr = ^f ile_list_record; 
f ile_list_record = record 
line ; stringSO; 

previous : f ile_list_ptr ; 
next : f ile_list_ptr 

end ; 



var 

file list 



f ile_list_ptr ; 
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path_valid : boolean; 
list_length : integer; 
heap_state : pointer; 
file_error : integer; 

procedure display_getf ile_help_screen; 

begin 

save_screen ; 

draw_window (16,5,65,19, blue, lightgray, 'help'); 
shade_window (16,5,65,19, black); 

center_text (12, 'NO HELP AVAILABLE AT THIS TIME', blue) 

center_text (17, 'press any key to return', blue); 

key : = get_key ; 

key := null; 

restore_screen 

end; 



procedure display_getf ile_screen (prompt, message : 
stringSO; search_mask : dirstr) ; 

procedure display_getf ile_help_line; 



begin 

put_char (1, 25, #24); 
put_char (2, 25, #25); 
put_char (3, 25, #26); 
put_char (4, 25, #27); 
put_string (5, 25, '-Choose'); 
put_char (14, 25, #60); 

put_char (15, 25, #217); 
put_string (16, 25, '-Select'); 
put_string (25, 25, 'Fl-Help'); 
put_string (34, 25, 'F4-New mask'); 
put_string (47, 25, 'ESC-Quit'); 
color_foreground (1,25,4,25, red); 
color_foreground (5,25,11,25, blue); 
color_foreground (14,25,15,25, red) ; 
color_foreground (16,25,22,25, 

(25,25,26,25, 



color_foreground 
color_foreground (27,25,31,25, 
color_foreground (34,25,35,25, 



blue) ; 
red) ; 
blue) ; 
red) ; 



color_foreground (36,25,44,25, blue); 
color_foreground (47,25,49,25, red) ; 
color_foreground (50,25,54,25, blue); 
color_background (1,25,80,25, lightgray) 
end; 



begin 

draw_window (menu_xl, menu_yl, menu_x2 , menu_y2 , 

menu_forecolor , menu_backcolor , prompt) ; 
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draw_window (file_window_xl, f ile_window_yl , f ile_window_x2 , 
f ile_window_y2 , 

f ile_window_forecolor , f ile_window_backcolor , 

search_n>ask) ; 

put_string (fields [l].label_x, fields [l].label_y, 
fields [ 1 ] . label_string + search_mask) ; 
center_text (fields [l].label_y - 2, message, 
f ile_window_backcolor) ; 
display_getf ile_help_line 
end; 

function check_path (search_mask : dirstr) : boolean; 



var 

file_info : searchrec; 
valid_path : boolean; 



begin 

findfirst (search_mask, anyfile, file_info) ; 
file_error := doserror; 
if file_error <> 0 then 
begin 

save_screen; 

draw_window (26,13,55,16, yellow, 
shade_window (26,13,55,16, black); 
case doserror of 



red, null_string) 



3 : begin 

center_text (14, 
center_text (15, 
key : = get_key ; 
key ;= null 
end; 

18 : begin 

center_text (14, 
center_text (15, 
key := get_key; 
key := null 
end; 

152 ; begin 

center_text (14, 
center_text (15, 
color_foreground 
color_foreground 
repeat 

key ; = get_key ; 
if chr (key) in 
begin 

restore_screen 
check_path ;= 
exit 
end 



'PATH NOT FOUND' 
'press any key'. 



'NO FILES FOUND' 
'press any key'. 



, yellow) 
white) ; 



, yellow) 
white) ; 



'DISK ERROR', yellow); 
'Retry or Abort', yellow) 
(34,15,34,15, white) ; 
(43,15,43,15, white) ; 



['a', 'A'] then 



(file_error = 0) 
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else if chr (key) in ['r', 'R'] then 

valid_path := check_path (search_mask) 
until (file_error <> 152) or (chr (key) in 

['a', 'A^) ; 

end 

else 

begin 

center_text (14, 'PATH ERROR', yellow); 
center_text (15, 'press any key', white); 
key : = get_key ; 
key := null 
end 
end; 

restore_screen 

end; 

check_path := (file_error = 0) ; 
end; 



function get_f ile_list 
f ile_list_ptr ; 



(search_mask ; dirstr; 
var list_length : integer) : 



const 

blank_60 = ' 
/ 



' + 
/ . 



var 

number_of_f iles ; integer; 
file_info : searchrec; 
column ; integer; 
list_head ; f ile_list_ptr ; 
list_tail : f ile_list_ptr ; 

begin 

number_of_f iles ;= 1; 
list_length ;= 1; 
column := 2; 
new (list_head) ; 
list_head'^ . line := blank_60; 
list_head^ . next := nil; 
list_head^ . previous ;= nil; 
list_tail := list_head; 

findfirst (search_mask, anyfile, file_info) ; 
while (doserror = 0) do 
begin 

delete (list_tail^ . line, column, length 
( f ile_info. name) ) ; 

insert ( f ile_info. name, list_tail'^ . line, column); 
if f ile_info. attr = directory then 

list_tail^ . line [column + length (f ile_info. name) ] 

'\'; 
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findnext (file_info) ; 
if doserror = 0 then 
begin 

incr (number_of_f iles) ; 
if (nuinber_of_f iles mod 4) =1 then 
begin 

new (list_tail^ . next) ; 
list_tail^.next^.next := nil; 
list_tail^.next^. previous ;= list_tail; 
list_tail^ . next^ . line := blank_60; 
list_tail := list_tail^ .next ; 
incr (list_length) ; 
column ;= 2 
end 
else 

column := column + 15 

end 
end ; 

get_f ile_list := list_head 
end ; 

function get_f ile_name (search_mask : dirstr; 

file_list : f ile_list_ptr 
list_length : integer ) 

pathstr ; 
var 

list_pointer : f ile_list_ptr ; 

done : boolean; 

file_name : pathstr; 

dir : dirstr; 

name : namestr; 

ext : extstr; 



procedure highlight_f ile ; 



begin 

color_f oreground 
f ile_window_yl + 

f ile_window_yl + 

color_background 
f ile_window_yl + 

f ile_window_yl + 

end; 



( f ile_window_xl 
wherey , 

f ile_window_xl 
wherey, 
yellow) ; 

( f ile_window_xl 
wherey, 

f ile_window_xl 
wherey, 
magenta) 



+ wherex, 

+ wherex + 13, 

+ wherex , 

+ wherex + 13, 



procedure restore_f ile ; 
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begin 

color_foreground 
f ile_window_yl + 

f ile_window_yl + 

color_background 
f ile_window_yl + 

f ile_window_yl + 

end; 



(f ile_window_xl + wherex, 
wherey , 

f ile_window_xl + wherex + 13, 
wherey , 

f ile_window_forecolor) ; 

(f ile_window_xl + wherex, 
wherey, 

f ile_window_xl + wherex + 13, 
wherey, 

f ile_window_backcolor) 



begin 

draw_window (f ile_window_xl, f ile_window_yl , 
f ile_window_x2 , file window y 2 , 
f ile_window_forecolor , f ile_window_backcolor , 

search_mask) ; 

window (f ile_window_xl + 1, f ile_window_yl + 1, 
f ile_window_x2 - 1, file window_y2 - 1) ; 
textbackground ( f ile_window_backcolor) ; 
textcolor (f ile_window_forecolor) ; 
clrscr ; 

list_pointer := file_list; 

done := false; 

repeat 

put_string (f ile_window_xl + wherex, f ile_window_yl + 
wherey , 

list_pointer^ . line) ; 

if (list_pointer^ . next <> nil) and (wherey <> 10) then 
begin 

gotoxy (wherex, wherey + 1) ; 
list_pointer := list_pointer^ . next 
end 
else 

begin 

gotoxy (1,1); 
list_pointer 
done ;= true 
end 

until done; 
highlight_f ile ; 
repeat 

key := get_key; 
case key of 
enter : 
begin 

file_name := copy (list_pointer^ . line, wherex + 1, 

12 ) ; 

file_name) = 0 then 



;= file list; 



if pos ( '\' , 
begin 
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f split (search_mask, dir, name, ext) ; 
get_f ile_name := dir + file_name 
end 
else 

begin 

save_screen ; 

draw_window (26,13,55,16, yellow, red, 
null_string) ; 

shade_window (26,13,55,16, black); 
center_text (14, 'CANNOT SELECT SUBDIRECTORY', 

yellow) ; 

center_text (15, 'press any key', white); 
key := get_key; 
key := null; 
restore_screen 
end 
end; 



fl : 



display_getf ile_help_screen ; 
up_arrow, 
down_arrow, 
left_arrow, 
right_arrow : 
begin 

restore_f ile; 
case key of 
up_arrow : 

if wherey <> 1 then 
begin 

gotoxy (wherex, wherey - 1) ; 
list_pointer := list_pointer^ . previous 
end 

else if (wherey = 1) and 
(list_pointer' .previous <> nil) then 

begin 

list__pointer := list_pointer^ . previous ; 
insline; 

put_string (f ile_window_xl + 1, 
f ile_window_yl + wherey, 

list_pointer^ . line) 

end ; 

down_arrow : 

if (wherey <> 10) and (list_pointer^ . next <> 

nil) and 



(list_pointer^ . next^ . line [wherex + 1] <> 

blank) then 

begin 

gotoxy (wherex, wherey + 1) ; 
list_pointer := list_pointer^ . next 
end 
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else if (wherey = 10) and (list_pointer^ . next 



<> nil) and 



(list_pointer^ . next^ . line [wherex + 

1] <> blank) then 

begin 

list_pointer := list_pointer^ .next; 

gotoxy (wherex, 1) ; 

delline; 

gotoxy (wherex, 10) ; 
put_string ( f ile_window_xl + 1, 
f ile_window_yl + wherey, 

list_pointer^ . line) 



end; 

left_arrow : 

if wherex <> 1 then 

gotoxy (wherex - 15, wherey) 
else if wherex = 1 then 
begin 

if wherey <> 1 then 
begin 

list_pointer := list_pointer^ . previous ; 



gotoxy (wherex + 45, wherey - 1) 
end 

else if (wherex = 1) and 

(list_pointer^ . previous <> nil) 

then 

begin 

list_pointer := list_pointer^ .previous; 



insline ; 

put_string ( f ile_window_xl + 1, 
file window y l + wherey. 



<> blank) 



list_pointer^ . line) ; 
gotoxy (wherex + 45, wherey) 
end 
end; 

right_arrow ; 

if (wherex <> 46) and 

(get_char (f ile_window_xl + wherex + 16, 
f ile_window_yl + wherey 



then 



gotoxy (wherex + 15, wherey) 
else if wherex =46 then 
begin 

if wherey <> 10 then 
begin 

list_pointer := list_pointer^ .next ; 

gotoxy (1, wherey + 1) 

end 



) 
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else if (wherey = 10) and 
(list_pointer^ .next <> nil) then 

begin 

list_pointer := list_pointer^ . next ; 
gotoxy (1,1); 
delline; 
gotoxy (1,10) ; 

put_string (f ile_window_xl + 1, 
f ile_window_yl + wherey. 



list_pointer^ . line) 



end 



end 

end ; 

highlight_f ile 
end 



end 

until (key = enter) or (key = escape) or (key = f4) ; 

restore_f ile ; 

textbackground (black) ; 

textcolor (yellow) ; 

window (1,1,80,25) 

end ; 



begin 

save_screen ; 

mark (heap_state) ; 

repeat 

display_getf ile_screen (prompt, message, search_mask) ; 

path_valid := false; 

repeat 

search_mask ;= edit_field (fields [1]); 
if key = enter then 

path_valid := check_path (search_mask) 
until (key = escape) or (path_valid) ; 
if path_valid then 
begin 

file_list := get_f ile_list (search_mask, list_length) 

get_file := get_f ile_name (search_mask, file_list, 
list_length) 
end 

until (key = enter) or (key = escape) ; 
if key = escape then 

get_file := null_string; 
release (heap_state) ; 
restore_screen 
end ; 



begin 

menu xl := menu xl default; 
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menu_x2 := menu_x2_default ; 
menu_yl := menu_yl_de fault; 
menu_y2 := menu_y2_de fault ; 
menu_forecolor := menu_forecolor_de fault; 
menu _backcolor := menu_backcolor_de fault; 



option_forecolor 
option_backcolor 
f ield_forecolor 
f ield_backcolor 
default mask := 'a:\* 



month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month_data 
month data 



= option_forecolor_default ; 
= option_backcolor_default ; 
= f ield_forecolor_default ; 

= f ield_backcolor_default ; 
*• ; 



[1] .days := 


31; 


[2 ] .days := 


28; 


[3] .days := 


31; 


[4] .days := 


30; 


[5] .days := 


31; 


[6] .days := 


30; 


[ 7 ] . days : = 


31; 


[ 8 ] . days : = 


31; 


[9] .days ;= 


30; 


[10] .days := 


^ 31; 


[ 11 ] . days : = 


^ 30; 


[ 12 ] . days : = 


^ 31; 


[ 1 ] . name : = 


'JAN' 


[ 2 ] . name : = 


'FEB' 


[ 3 ] . name : = 


'MAR' 


[ 4 ] . name : = 


'APR' 


[ 5 ] . name : = 


'MAY' 


[6] .name := 


'JUN' 


[ 7 ] . name : = 


'JUL' 


[ 8 ] . name : = 


'AUG' 


[ 9 ] . name : = 


'SEP' 


[ 10 ] . name : = 


: 'OCT' 


[ 11 ] . name : = 


^ 'NOV' 


[ 12 ] . name : = 


^ 'DEC' 



assign (fontfile, 'fontfile'); 
reset (fontfile) ; 
if ioresult = 0 then 
begin 

for loop := 'A' to 'Z' do 

read (fontfile, letters [loop]); 
for loop ;= '0' to '9' do 

read (fontfile, digits [loop]); 
close (fontfile) 
end 
else 

begin 

initialize_screen ; 
remove_cursor ; 

draw_window (19,12,61,16, yellow, red, null_string) 
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center_text (13, 'FONTFILE NOT FOUND', yellow); 

center_text (14, 'CHECK DISK, THEN TRY AGAIN', 

center_text (15, 'press any key', white); 

key ; = get_key ; 

key := null; 

restore_cursor ; 

initialize_screen ; 

halt 

end 



end. 



yellow) 



338 



LIST OF REFERENCES 



1. U.S. Department of the Army, Operations . Field Manual 

100-5, Washington, D.C.: U.S. Government Printing 

Office, 1982. 

2. Wohl, Joseph, "Force Management Decision Requirements 
for Air Force Tactical Command and Control," IEEE 
Transactions on Systems. Man, and Cybernetics . Vol. 
SMC-11, No. 9, Sept 1981. 

3. Taylor, James G., Professor, Naval Postgraduate School, 
Monterey, CA, OS3636 Class Notes, "C3 Architecture", 
Summer Quarter, 1988. 

4. Giles, G. and Sandene, J., " An Introduction to C3 
Architecture . " M.S. Thesis, Naval Postgraduate School, 
Monterey, CA, March 1988. 

5. U.S. Department of the Army, Field Artillery Cannon 

Battalion . Field Manual 6-20-1, Washington, D.C.: U.S. 

Government Printing Office, 1979. 

6. Clausewitz, Carl von. On War . Edited and Translated by 
Michael Howard and Peter Paret, Princeton University 
Press, 1976. 

7. IBM Corp. Federal Systems Division, "1982 Final Report 
Integration of C3 Architecture," (Naval Postgraduate 
School Microfiche AD-B072-182L) . 

8. Orr, George, Combat Operations C3I; Fundamentals and 
Interactions . Air University Press, 1983. 



339 



BIBLIOGRAPHY 



Barr, D.R., Poock, G.K., and Richards, F.R., •'Experimental 
Manual, Part I: Experimentation Methodology," Naval 
Postgraduate School NPS55-78-032 , Nov, 78, (NPS Microfiche 
AD-A067-539) . 

Martin, Terry L. , Command. Control, and Communications 
Mission and Organization; A Primer . M.S. Thesis, Naval 
Postgraduate School, Monterey, CA, March 1984. 

Schoderbeck, Peter P., Schoderbeck, Charles G., and Kefalas, 
Asterios, Management Systems: Conceptual Considerations . 
Third Edition, Business Publications, INC., Plano, TX, 1985. 

Tiede, Roland V., and Leake, Lewis A., "A Method for 
Evaluating the Combat Effectiveness of a Tactical 
Information System in a Field Army.," Operations Research . 
Opns. Res. 19, pages 585-604, 1971. 



340 



INITIAL DISTRIBUTION LIST 



1. Defense Technical Information Center 
Cameron Station 

Alexandria, Virginia 22304-6145 

2. Library, Code 0142 
Naval Postgraduate School 
Monterey, California 93943-5002 

3 . Commandant 

US Army Field Artillery School 
ATTN: ATSF-AF 

Ft Sill, Oklahoma 73503-5600 

4 . Commander 

US Army Signal Center and Ft Gordon 
ATTN: ATZH-POO 

Ft Gordon, Georgia 30905-5300 

5. Commander 

US Army Combined Arms Center 
ATTN: ATZL-SWP-P 

Ft Leavenworth, Kansas 66027-5300 

6. Curricular Office, Code 39 
Naval Postgraduate School 
Monterey, California 93943-5000 

7 . C^ Academic Group 

ATTN: Professor Carl Jones, Code 74 
Naval Postgraduate School 
Monterey, California 93943-5000 

8 . Commander 

US Army Combined Arms Center 
ATTN: ATZL-CAC-I 

Ft Leavenworth, Kansas 66027-5300 

9. Department of Operations Research 
ATTN: Professor Samuel Parry, Code 55Py 
Naval Postgraduate School 

Monterey, California 93943-5000 



2 

2 

1 

1 

1 

1 

1 

1 

2 



341 



10 . 



2 



Department of Operations Research 
ATTN: LCDR William Walsh, Code 55Wa 
Naval Postgraduate School 
Monterey, California 93943-5000 

11. Test and Experimentation Command 
ATTN: CPT Michael W. Schneider 
Ft Hood, Texas 76544 

12. Commanding General 
Training and Doctrine Command 
Ft Monroe, Virginia 23351 

13. Commanding General 
5th United States Army 

Fort Sam Houston, Texas 78234 

14. Defense Communications Agency 
Center for C^ Systems 

ATTN: CPT Anthony R. Ferrara 
Arlington Hall Station 
Arlington, Virginia 22212-5410 



2 



1 



1 



2 



342 



liililri 










Thesis 

S33792 Schneider 

c.l A coimnand and control i 

wargame to train 
officers in the integra- i. 
tion of tactics and 
logistics in a field 
artillery battalion. 



/ 



17 OCT 90 



lu & H 2 r 



""Iiesis 

S33792 Schneider 
c.l A command and control 

wargame to train 
officers in the integra- 
tion of tactics and 
logistics in a field 
artillery battalion. 



DUDLEY KNOX LIBRARY 




3 2768 00399141 5 




